Sending Mail from ASP with CDONTS.NewMail Object

Properties of NewMail Object.
From A string value contaning the email address of the sender
(for example Me@somewhere.com)
To A string value contaning the email address of the recipient.
(for example, someone@somewhere.com)
Multiple addresses can be added by seperating wih ";"
Subject The subject line for the message.
Body A string value contaning the body text of message.
Cc A string contaning the email addresss of recipents who will recieve a copy of current message.
Bcc A string contaning the email addresss of recipents who will recieve a blind copy of current message.
Importance This is an Integer value that represents the priority of message.
(for example High, Normal or Low)
BodyFormat An integer value which sets the text format of NewMail Object.
ObjMail.BodyFormat = 0 (HTML format)
ObjMail.BodyFormat = 1 (default Plain Text format)
MailFormat An integer value which sets the encoding of NewMail Object.
ObjMail.MailFormat = 0 (Mime format)
ObjMail.MailFormat = 1 (default Plain Text format)




Methods of NewMail Object.
AttachFile This method attaches a file to the current mesage.
AttachURL This method attach a file to current message and associate a URL with that attachment.
Send This method sends the message.


After the send method the NewMail object becomes invalid but stays in the memory.
You should set NewMail Object to nothing and relase the memory after the Send method.
After the send method you will have to create a new instance of NewMail Object if you want to send another message.

Let us see how we can use CDONTS.Newmail Object to send mail from an ASP Page.

Code:


Option Explicit

Dim objNewMail

' First create an instance of NewMail Object
Set objNewMail = Server.CreateObject("CDONTS.NewMail")

' After an instance of NewMail Object has been created.
' If you like you can use this one line of code to send the mail.
' objNewMail.Send From, To, Subject, Message
' or you can give every value seperate

objNewMail.From = "webmaster@devasp.com"
objNewMail.To  = "test@devasp.com"

' Please replace the "From" and "To" email addresses with your
' own valid email address. I recieve too many emails
' from people who test this sample and keep sending
' emails to test@devasp.com, or they keep the "From" property
' as webmaster@devasp.com and I get response of
' undeliverable emails.
' NOTE: If the "To" or "From" properties of CDONTS contain
' invalid email address you will not recieve the email.

objNewMail.Subject = "This is a test Mail"
objNewMail.Body    = "This is the Body text of this test mail."
objNewMail.Send

' After the Send method, NewMail Object become Invalid
' You should set it to nothing to relase the memory

Set objNewMail = Nothing

' If you want to send another mail
' you have to create a new instance of NewMail Object again.

Response.Write "Email has been sent"