Envío de Correos con asp y cdosys

[belly]

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

[Adler]

Hola y bienvenido

Hola

Prueba con el valor 1 para la autentificación y el puerto 465 cambialo al puerto 587

.Fields.Item(ConfURL & "smtpauthenticate") = 1

Suerte