To send emails using Classic ASP, use the CDOSYS component
‘CREATE THE INSTANCE WITH THE CDOSYS OBJECT
Set objCDOSYSMail = Server.CreateObject(“CDO.Message”)
Set objCDOSYSCon = Server.CreateObject(“CDO.Configuration”)
‘SMTP SERVER
objCDOSYSCon.Fields(“http://schemas.microsoft.com/cdo/configuration/smtpserver“) = “smtp.dominio.com”
‘PORT FOR COMMUNICATION WITH THE SMTP SERVICE
objCDOSYSCon.Fields(“http://schemas.microsoft.com/cdo/configuration/smtpserverport“) = 587
‘Use SSL
objCDOSYSCon.Fields.Item(“http://schemas.microsoft.com/cdo/configuration/smtpusessl“) = False
objCDOSYSCon.Fields(“http://schemas.microsoft.com/cdo/configuration/sendusing“) = 2
‘ENABLE AUTHENTICATED SMTP FEATURE
objCDOSYSCon.Fields(“http://schemas.microsoft.com/cdo/configuration/smtpauthenticate“) = 1
‘USER FOR AUTHENTICATED SMTP
objCDOSYSCon.Fields(“http://schemas.microsoft.com/cdo/configuration/sendusername“) = “[email protected]“
‘USER PASSWORD FOR AUTHENTICATED SMTP
objCDOSYSCon.Fields(“http://schemas.microsoft.com/cdo/configuration/sendpassword“) = “your_password”
‘TIMEOUT (IN SECONDS)
objCDOSYSCon.Fields(“http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout“) = 60
‘UPDATE CDOSYS CONFIGURATION FOR SENDING THE EMAIL
objCDOSYSCon.Fields.update
Set objCDOSYSMail.Configuration = objCDOSYSCon
‘SENDER NAME, SENDER EMAIL
objCDOSYSMail.From = “[email protected]“
‘RECIPIENT NAME, RECIPIENT EMAIL
objCDOSYSMail.To = “[email protected]“
‘objCDOSYSMail.cc = “Copy [email protected]“
‘objCDOSYSMail.bcc = “Blind Copy [email protected]“
‘MESSAGE SUBJECT
objCDOSYSMail.Subject = “Message Subject”
‘MESSAGE CONTENT
‘objCDOSYSMail.TextBody = “CDOSYS component test – Plain text (no HTML)”
‘TO SEND THE MESSAGE IN HTML FORMAT, CHANGE TextBody TO HtmlBody
objCDOSYSMail.HtmlBody = “CDOSYS component test – HTML text”
‘SENDS THE MESSAGE
objCDOSYSMail.Send
‘DESTROYS THE OBJECTS
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
