Al momento que envio el correo genera el siguiente error:
Tipo de error:
CDO.Message.1 (0x80040220)
No es válido el valor de configuración "SendUsing".
No creo que este mal el codigo, mas bien alguna configuración que se tenga que hacer.
este es el codigo:
Set Config = Server.createObject ("CDO.Configuration")
Set Mail = Server.CreateObject ("CDO.Message")
With Config
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.midominio.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With
Set Mail.Configuration = Config
Este codigo de arriba se lo puse por sugerencia de un usuario de este foro que igual sigue el mismo error
Set myMail=CreateObject("CDO.Message")
myMail.Subject = asunto
myMail.From = origen
myMail.To="[email protected]"
myMail.TextBody = mensaje
myMail.Send
set myMail=nothing
Ante todo gracias por su tiempo