<%
response.write now() & " "
' Create the e-mail server object
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
'Outgoing SMTP server
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpse
rver") = "localhost"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpse
rverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendus
ing") = 1
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpco
nnectiontimeout") = 60
objCDOSYSCon.Fields.Update
' Update the CDOSYS Configuration
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "you@yourdomain.com"
objCDOSYSMail.To = "recipient@theirdomain.com"
objCDOSYSMail.CC = "CCrecipient@theirdomain.com"
objCDOSYSMail.Subject = "This is my subject for my test email"
objCDOSYSMail.HTMLBody = "This is the body for my test email"
objCDOSYSMail.Send
'Close the server mail object
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
%>