Send an email with your GMail account and CDO Components
Posted July 18th, 2007 by Perk1z<%
Set objCDOSYSMail = Server.CreateObject(”CDO.Message”)
Set objCDOSYSCon = Server.CreateObject (”CDO.Configuration”)
objCDOSYSCon.Fields(”http://schemas.microsoft.com/cdo/configuration/smtpserver”) = “smtp.gmail.com”
objCDOSYSCon.Fields(”http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 465
objCDOSYSCon.Fields(”http://schemas.microsoft.com/cdo/configuration/smtpusessl”) = true
objCDOSYSCon.Fields(”http://schemas.microsoft.com/cdo/configuration/smtpauthenticate”) = 1
objCDOSYSCon.Fields(”http://schemas.microsoft.com/cdo/configuration/sendusername”) = “myemailaccount”
objCDOSYSCon.Fields(”http://schemas.microsoft.com/cdo/configuration/sendpassword”) = “mypassword”
objCDOSYSCon.Fields(”http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2
objCDOSYSCon.Fields(”http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout”) = 60
objCDOSYSCon.Fields.Update
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = “myemailaccount”
objCDOSYSMail.To = “myfriend”
objCDOSYSMail.Subject = “This is my subject for my test message smtp gmail”
objCDOSYSMail.HTMLBody = “This is the body ”
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
%>
<!DOCTYPE HTML [...]
