El siguiente script ASP se puede usar para enviar correo electrónico usando CDOSYS en nuestros servidores.
Dim iConfig
Dim theFlds
Dim objCDOMail
Set iConfig = Server.CreateObject ("CDO.Configuration")
Set theFlds = iConfig.Fields
'Set and update fields properties
theFlds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
theFlds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.servwise.com"
theFlds("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
theFlds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
theFlds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
theFlds("http://schemas.microsoft.com/cdo/configuration/sendusername")="name@email.com"
theFlds("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="yourpassword"
theFlds.Update
'Create the e-mail server object
Set objCDOMail = Server.CreateObject("CDO.Message")
Set objCDOMail.Configuration = iConfig
Err.Clear
objCDOMail.From = "sender@emaladdress.com"
objCDOMail.To = "recipient@emaladdress.com"
objCDOMail.Subject = "Email Subject"
objCDOMail.TextBody="Email Body"
objCDOMail.Send
'Close the server mail object
Set objCDOMail = Nothing
Set theFlds= Nothing
Set iConfig = Nothing
También puede encontrar útil la siguiente http://www.w3schools.com/asp/asp_send_email.asp
