El hice algunas modificaciones y ahora me genera el siguiente error:
Tipo de error:
(0x8004020F)
La clase de suceso para esta suscripción está en una partición no válida
Y el código es este:
Set myMail = Server.createObject("CDO.Message")
Set Config = Server.createObject ("CDO.Configuration")
With Config
.Fields("
http://schemas.microsoft.com/cdo/con...ion/smtpserver") = "localhost"
.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 myMail.Configuration = Config
myMail.Subject = asunto
myMail.From = origen
myMail.To="
[email protected]"
myMail.TextBody = mensaje
myMail.Send
set myMail=nothing