Answer:  


EmailTO= "ToEmailAddressHere" ' CHANGE HERE
EmailFROM= "You@YourDomainNameHere" ' CHANGE HERE - MUST BE AN EMAIL ADDRESS THAT WE HOST FOR YOU !
EmailSubject= "CDOSYS test email" ' CHANGE HERE
BodyContent = "Thank you for registering." ' CHANGE HERE



Dim objCDOSYSCon
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'Out going SMTP server
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
'SMTP port
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'CDO Port
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Timeout
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update

'Update the CDOSYS Configuration
Set objCDOSYSMail.Configuration = objCDOSYSCon

objCDOSYSMail.From = EmailFROM
objCDOSYSMail.To = EmailTO
objCDOSYSMail.Subject = EmailSubject
objCDOSYSMail.HTMLBody = BodyContent
objCDOSYSMail.Send

Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

Last update: 2010-03-07 10:13
Author: admin

printer-friendly version	Send to a friend
Show this as PDF file	export as XML-File