Que tal, espero que me puedan ayudar con este tema.
Tengo un envio de news y cuando quiero enviar un mail me sale el siguiente error
error '8004020f'
Les paso el codigo
(donde dice xxx son los datos de la cuenta, servidor y clave. saque la parte de la pagina web porque el foro no me deja poner direcciones web)
Set myMail=CreateObject("CDO.Message")
myMail.Subject= asunto
myMail.From= "xxx"
myMail.Configuration.Fields.Item("/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item("/cdo/configuration/smtpserver")="xxx"
'Server port
myMail.Configuration.Fields.Item("/cdo/configuration/smtpserverport")=25
'Type of authentication, NONE, Basic (Base64 encoded), NTLM
myMail.Configuration.Fields.Item("/cdo/configuration/smtpauthenticate") = cdoBasic
'Your UserID on the SMTP server
myMail.Configuration.Fields.Item("/cdo/configuration/sendusername") = "xxx"
'Your password on the SMTP server
myMail.Configuration.Fields.Item("/cdo/configuration/sendpassword") = "xxx"
'Use SSL for the connection (False or True)
myMail.Configuration.Fields.Item _
("/cdo/configuration/smtpusessl") = False
'TIMEOUT en segundos, el tiempo máximo que tratará CDO para establecer una conección con el SMTP
myMail.Configuration.Fields.Item _
("/cdo/configuration/smtpconnectiontimeout") = 60
myMail.Configuration.Fields.Update
Lei un mensaje que hablaba de este tema, pero entiendo poco y no se como solucionarlo.
Gracias de antemano.
Saludos.
