Buenas, tengo una aplicación en .net en la que se envía un correo utilizando CDO. Ahora trato de hacer algo parecido en un script; parece que todo va bien y que no devuelve ningun error, pero no recibo el correo; este es el script:
Dim oMail
Dim oConf
Dim Flds
On Error Resume Next
' Se crean los objetos necesarios para el envío del correo
Set oMail = Server.CreateObject("CDO.Message")
Set oConf = Server.CreateObject("CDO.Configuration")
Set Flds = oConf.Fields
' Se configuran los parametros necesarios para el envío
oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxx/Exchange"
oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/mailboxurl") = "http://xxx/Exchange/" & <usuario> & "/"
oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
' Se completan los datos del usuario y la contraseña necesarios para el envio
oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = <usuario>
oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = <password>
oConf.Fields.Update
' Se asignan las propiedades de configuración al objeto
Set oMail.Configuration = oConf
' Destinatario del correo
oMail.To = <toAddress>
' Remitente del correo
oMail.From = <rte.>
' Subject o asunto
oMail.Subject = <subject>
' Cuerpo del mensaje
oMail.TextBody = <text>
' Se envía el correo
ret = 0
ret = oMail.Send
En la aplicación .net está hecho prácticamente igual y funciona; he comprobado los datos como la dirección de destino y están bien. Un saludo y gracias.