Por otro lado intente con CDO con el siguiente código:
Código:
Con este último no obtengo ningún error pero no me llegan los mails.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
Alguna idea?
Desde ya muchas gracias.