%
' Sets CDONTS ASP Component
Set Mailer=Server.CreateObject("CDONTS.NewMail")
' Creates the Body of the Email
Message = "This is line 1 of the body of the email" & VbCrLf
Message = Message & "This is line 2 of the body of the email" & VbCrLf
Message = Message & "This Email was sent at "& now() &"" & VbCrLf
' This is the Subjext Line
Subject = "This Email was created with CDONTS"
' This is the To Address
' This Email Address must be an email address
' You have created on your hosting account
ToAddress = ""
' This is the From Address
' This Email Address must be an email address
' You have created on your hosting account
FromAddress = ""
' Collects the Body of the Email
Mailer.Body = Message
' Collects the Subject of the Email
Mailer.Subject = Subject
' Collects the To Address of the Email
Mailer.To = ToAddress
' Collects the From Address of the Email
Mailer.From = FromAddress
' Mails the Email
Mailer.Send
%>