Hola Foro, recurro ha ustedes como última alternativa espero me puedan ayudar. El problema es que deseo enviar mails con aspemail o CDO desde una cuenta de GMAIL. Buscando en el foro encontre este
post que es exactamente el mismo problema que tengo, pero el post no recibió respuestas.
Por otro lado intente con CDO con el siguiente código:
Código:
Set oMail = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
' Se configuran los parametros necesarios para el envío
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
' Se completan los datos del usuario y la contraseña necesarios para el envio
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
'usuario smtp
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mipassword"
'password para STMP
iConf.Fields.Update
' Se asignan las propiedades de configuración al objeto
Set oMail.Configuration = iConf
' Destinatario del correo
oMail.To = "[email protected]"
' Remitente del correo
oMail.From = "[email protected]"
' Subject o asunto
oMail.Subject = "E-mail de prueba"
' Cuerpo del mensaje
oMail.TextBody = "Este es un e-mail enviado de ejemplo"
' Se envía el correo
oMail.Send
response.write "ENVIO"
' Se destruyen los objetos
Set iConf = Nothing
Set Flds = Nothing
Con este último no obtengo ningún error pero no me llegan los mails.
Alguna idea?
Desde ya muchas gracias.