[LEFT]
<%
'Dimension variables
Dim objCDOMail 'Holds the CDONTS NewMail Object
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
'Who the e-mail is from
objCDOMail.From = "[email protected]"
'Who the e-mail is sent to
objCDOMail.To = "[email protected]"
'Who the carbon copies are sent to
objCDOMail.Cc = "[email protected];[email protected]"
'Who the blind copies are sent to
objCDOMail.Bcc = "[email protected];[email protected]"
'Set the subject of the e-mail
objCDOMail.Subject = "Enquiry sent from my web site"
'Set the e-mail body format (0=HTML 1=Text)
objCDOMail.BodyFormat = 0
'Set the mail format (0=MIME 1=Text)
objCDOMail.MailFormat = 0
'Set the main body of the e-mail
objCDOMail.Body = "<h2>Hello</h2><br><b>This is my e-mail in HTML format</b>"
'Importance of the e-mail (0=Low, 1=Normal, 2=High)
objCDOMail.Importance = 1
'Send the e-mail
objCDOMail.Send
'Close the server object
Set objCDOMail = Nothing
%>[/LEFT]