Probar el envio de correos desde el servidor de Gestar

Para probar si el envio de correos desde el servidor de Gestar funciona correctamente, crear un archivo .vbs, editarlo y pegar el siguiente codigo, reemplazando los parametros de configuracion y las direcciones de envio:

Para mas informacion acerca del envio de correos con CDOSYS consultar http://msdn.microsoft.com/en-us/library/ms527568(v=exchg.10).aspx

'Const CdoConfiguration = "sendusing=1;smtpserverpickupdirectory=c:\inetpub\mailroot\pickup"
Const CdoConfiguration = "sendusing=2;smtpserver=myserver;smtpserverport=25;smtpauthenticate=1;sendusername=myuser;sendpassword=mypassword"

Const MailTo = "dest@mymail.com"
Const MailFrom = "sender@mymail.com"
Const MailSubject = "Test CDO Configuration"
Const MailBody = "This is the body"

Dim i
Dim oCfg, oMsg
Dim arrAll, arrEach
Dim strGlobalBcc
Const cntNamespace = "http://schemas.microsoft.com/cdo/configuration/"

Set oCfg = CreateObject("CDO.Configuration")
arrAll = Split(CdoConfiguration, ";")
For i = 0 To UBound(arrAll)
 arrEach = Split(arrAll(i), "=")
 oCfg.Fields(cntNamespace & arrEach(0)) = arrEach(1) & ""
Next
oCfg.Fields.Update

Set oMsg = CreateObject("CDO.Message")
Set oMsg.Configuration = oCfg

oMsg.From = MailFrom
oMsg.To = MailTo
oMsg.Subject = MailSubject
oMsg.TextBody = MailBody
oMsg.Send
MsgBox "Msg sent"