Set objMail= Server.CreateObject("CDO.Message")
With objMail
.From = "Valery<
[email protected]>"
.To = "
[email protected]"
.Subject = "Prueba de correo"
.HTMLBody = "PRUEBA <b>fgjdfjgdfjg</b>jfgjfdgdfjg"
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.dominio.com"
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "
[email protected]"
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "miclave"
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Configuration.Fields.Update
.Send
End With
set objMail = nothing