|
|
|
|
|
| | |
| |
Active Server Pages what is asp programming how to sample asp example code scripts software asp forum mail sessions applications global.asa CJWSoft ASPProtect ASPBanner ASPClassifieds
(Advanced)
(Components)
(Database)
(General)
(Vbscript)
|
|
|
|
Subject: |
Re: Email this Page... |
|
From: |
Elmo |
|
Date: |
5/22/2003 4:55:28 AM |
|
IP: |
210.125.31.49 |
Dim objCDOMail 'Holds the CDONTS NewMail Object
'Create the e-mail server object
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
'Who the e-mail is from
objCDOMail.From = "Your Email"
'Who the e-mail is sent to
objCDOMail.To = "friend's email"
'Who the carbon copies are sent to
objCDOMail.Cc = "seconde friend's email"
'Who the blind copies are sent to
objCDOMail.Bcc = ""
'Set the subject of the e-mail
objCDOMail.Subject = "Subject of mail"
'Set the e-mail body format (0=HTML 1=Text)
'Here you can choose letter type html or 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 = "Your Page goes here"
'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
|
Previous Message
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
