Yo Utilizo esta configuració, pero no me funciona:
Set Mail = Server.createObject("CDO.Message")
Set Config = Server.createObject ("CDO.Configuration")
With Config
.Fields("
http://schemas.microsoft.com/cdo/con...ion/smtpserver") = "vir.midominio.com"
.Fields("
http://schemas.microsoft.com/cdo/con...smtpserverport") = 25
.Fields("
http://schemas.microsoft.com/cdo/con...tion/sendusing") = 2
.Fields("
http://schemas.microsoft.com/cdo/con...nectiontimeout") = 60
.Fields.update
End With
Set Mail.Configuration = Config
Y me Genera este error con esta configuración:
Tipo de error:
CDO.Message.1 (0x80040220)
No es válido el valor de configuración "SendUsing".
Voy a Probar lo que me dierón Gracias...