<%
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "rob@tconsult.com"
objMail.Subject = "How TO send email with CDONTS"
objMail.To = "someone@someplace.com"
objMail.Body = "This is an email message" & vbcrlf&_
"with CDONTS." & vbcrlf&_
"It is really easy. "
objMail.Send
Response.write("Mail was Sent")
'You must always do this with CDONTS.
set objMail = nothing
%>
|