Email using CDONTS
Using the CDONTS component to send email from ASP pages.
Many ASP programmers want to now know to do this and with the arrival
of IIS4 and the SMTP service of Option Pack 4 it is now fairly easy.
There is a component that is made available after the server installation
of SMTP service. It is called CDONTS and it makes sending email
rather easy. Setting up the SMTP service properly is up to you.
It is fairly self explanatory and I have never had any problems
installing it. Any quality ISP's who offer ASP hosting should already
have this set up on their servers.
The following three examples should give you the basic idea and
get you started.
CDONTS to send a text based email message.
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= "[email protected]"
MyCDONTSMail.To= "[email protected]"
MyCDONTSMail.Subject="This is a Test"
MyBody = "Thank you for ordering that stuff"
MyBody = MyBody & "We appretiate your
business" & vbCrLf
MyBody = MyBody & "Your stuff will arrive
within 7 business days"
CDONTS to send a HTML based email message.
get the general idea..notice how you have to add extra double quotes
inside the HTML. You can use any valid HTML. Just make sure you
link the images back to your webserver so that the recipient doesn't
get a broken image. If the recipient's email program doesn't support
HTML this is not always a good way to send email, but most do in
my experience and if they don't they will still get the message...
it will just look kinda strange.
Set MyCDONTSMail2 = CreateObject("CDONTS.NewMail")
HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<title>Sending
CDONTS Email Using HTML</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""FFFFFF"">"
HTML = HTML & "<p><font size
HTML = HTML & "Name Of Store</strong><br>"
HTML = HTML & "Incoming Customer Order</strong></p>"
HTML = HTML & "<p align = ""center"">Bla
Bla Bla Bla Bla</p>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"
MyCDONTSMail2.From= "[email protected]"
CDONTS to send a file attachment and have a Carbon Copy Recipient.
Set MyCDONTSMail3 = CreateObject("CDONTS.NewMail")
MyCDONTSMail3.From= "[email protected]"
MyCDONTSMail3.To= "[email protected]"
MyCDONTSMail3.Subject="This is a Test"
' or you could specify the path exactly if you
knew it like below
MyBody2 = "Thank you for ordering
that stuff" & vbCrLf
MyBody2 = MyBody2 & "We appretiate your
business" & vbCrLf
MyBody2 = MyBody2 & "Your stuff will
arrive within 7 business days"
sending an attachment this is just a very simple example. There
are certain encoding options and file type settings that you may
also want to set.