|
|
|
|
|
| | |
| |
vbscript active server pages ASP vbscript SQL database informix oracle SQL Server Perl CGI Delphi PHP source code code sample samples program 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
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
