Home | Advertising Info7 USERS CURRENTLY ONLINE   
   Site Search Contact Us Saturday, May 21, 2022  

Important Update: CDONTS has been deprecated
and is seldom used anymore. Basically, CDOSYS is it's replacement.
Read This Article Sending email using CDOSYS
  Using the CDONTS component to send email from ASP pages.

With the arrival of IIS4 and the SMTP service of Option Pack 4 it is now fairly easy to send email from Active Server Pages.

The following three examples should give you the basic idea and get you started.

Using CDONTS to send a text based email message.

    Dim MyBody

    Dim MyCDONTSMail

    Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
    MyCDONTSMail.From= "somebody@nowhere.com"
    MyCDONTSMail.To= "nobody@nowhere.com"
    MyCDONTSMail.Subject="This is a Test"
    MyBody = "Thank you for ordering that stuff" & vbCrLf
    MyBody = MyBody & "We appreciate your business" & vbCrLf
    MyBody = MyBody & "Your stuff will arrive within 7 business days"
    MyCDONTSMail.Body= MyBody
    set MyCDONTSMail=nothing

Using CDONTS to send a HTML based email message.

You'll 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.

    Dim MyCDONTSMail2
    Dim HTML
    Set MyCDONTSMail2 = CreateObject("CDONTS.NewMail")
    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 =""3"" face=""Arial""><strong>"
    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= "somebody@somewhere.com"
    MyCDONTSMail2.Subject="Incoming Customer Order"
    set MyCDONTSMail2=nothing


Using CDONTS to send a file attachment and have a Carbon Copy Recipient.

    Dim MyBody2
    Dim MyCDONTSMail3

    Set MyCDONTSMail3 = CreateObject("CDONTS.NewMail")
    MyCDONTSMail3.From= "somebody@nowhere.com"
    MyCDONTSMail3.To= "nobody@nowhere.com"
    MyCDONTSMail3.Subject="This is a Test"

    MyCDONTSMail3.AttachFile Server.MapPath("/somedirectory/bla.txt")
    ' or you could specify the path exactly if you knew it like below
    'MyCDONTSMail3.AttachFile ("C:\inetpub\wwwroot\somedirectory\bla.txt")

    MyBody2 = "Thank you for ordering that stuff" & vbCrLf
    MyBody2 = MyBody2 & "We appreciate your business" & vbCrLf
    MyBody2 = MyBody2 & "Your stuff will arrive within 7 business days"
    MyCDONTSMail3.Body= MyBody2
    set MyCDONTSMail3=nothing

When 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.


   Active Server Pages Rule The World
Contact Us  
All artwork, design & content contained in this site are Copyright 1998 - 2022 PowerASP.com and Christopher J. Williams
Banner ads ,other site logos, etc are copyright of their respective companies.
STATS Unless otherwise noted - All Rights Reserved.

Active Server Pages help tutorial how to ASP Help ASP Tutorials ASP Programming ASP Code - ASP Free CJWSoft ASPProtect ASPBanner ASPClassifieds www.aspclassifieds.com, www.powerasp.com,www.cjwsoft.com,www.aspphotogallery.com,www.codewanker.com,www.aspprotect.com,www.aspbanner.com