Hola a todos!!
He revisado los temas que tienen en el foro al respecto pero no encuentro la solución a mi problema.
Se acaba de migrar el sitio a un nuevo servidor con las mismas características al anterior, pero dejó de funcionar mi código para enviar mails, me manda el siguiente error:
CDO.Message.1 error '80040213'
The transport failed to connect to the server.
enviar_correo.asp, line 122
Mi código:
Código:
<%
Dim myMail,myConf,ConfURL
Set myMail = CreateObject("CDO.Message")
Set myConf = Server.CreateObject("CDO.Configuration")
ConfURL = "http://schemas.microsoft.com/cdo/configuration/"
with myConf
.Fields.Item(ConfURL & "sendusing") = 2
.Fields.Item(ConfURL & "smtpserver") = "smtp.gmail.com"
.Fields.Item(ConfURL & "smtpserverport") = 465
.Fields.Item(ConfURL & "smtpusessl") = true
.Fields.Item(ConfURL & "smtpauthenticate") = 1
.Fields.Item(ConfURL & "sendusername") = cuenta
.Fields.Item(ConfURL & "sendpassword") = clave
.Fields.Update
end with
with myMail
.Subject=CorreoObj
.From=CorreoDe
.To=CorreosLista
.ReplyTo="[email protected]"
.HTMLBody = Mensaje
myMail.Configuration = myConf
.Send
end with
set myMail=nothing
set myConf=nothing
%>
cuenta y clave son variables con el usuario y contraseña de la cuenta de correo en gmail.
Ojalá me puedieran ayudar explicándome qué significa el error ?
y si mi código tiene algún error corregirlo, que no creo que sea eso, xq funcionaba muy bien antes de migrar el sitio.
Gracias
