Email with Quotes
<%
Option Explicit
Dim objMail
Dim TheMessage
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = "julie@na.com;jill@na.com"
objMail.From = "bob@na.com"
objMail.Subject = "Welcome!"
TheMessage = "Hello:" & chr(13) & chr(13) _
& "Thanks for coming to our site!" & chr(13) & chr(13) _
& """We appreciate your business!"""
objMail.Body = TheMessage
objMail.Send
response.write "done"
Set objMail = Nothing
%>
Importance
<%
Option Explicit
Dim objMail
Dim TheMessage
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = "julie@na.com "
objMail.From = "bob@na.com"
objMail.Subject = "Welcome!"
TheMessage = "Hello:" & chr(13) & chr(13) _
& "Thanks for coming to our site!" & chr(13) & chr(13) _
& """We appreciate your business!"""
objMail.Body = TheMessage
objMail.Importance = 2
objMail.Send
Set objMail = Nothing
response.write "done"
%>
HTML
<%
Option Explicit
Dim objMail
Dim TheMessage
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = "tim@na.com"
objMail.From = "bob@na.com"
objMail.Subject = "We've gone crazy!"
TheMessage = "" _
& "" _
& "We've Got A Sale" _
& "" _
& "" _
& "Everything is 30% 50% off!
" _
& "
" _
& "So stop by now! Click here!
" _
& "" _
& ""
objMail.Body = TheMessage
objMail.Importance = 2
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Send
Set objMail = Nothing
%>
Value
<%
Option Explicit
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = "kate@na.com"
objMail.From = "bob@na.com"
objMail.Subject = "We've gone crazy!"
objMail.Body = "Send me an email for details!"
objMail.Importance = 2
objMail.Value("Reply-To") = "sales Staff"
objMail.Send
Set objMail = Nothing
%>
Version
<%
Option Explicit
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
Response.Write "This server is using version: " _
& objMail.Version & " of CDONTS
"
%>
Attachment
<%
Option Explicit
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = "sue@na.com"
objMail.From = "bob@na.com"
objMail.Subject = "Your file"
objMail.Body = "Attached is the file you requested."
objMail.AttachFile "e:\inetpub\logo.gif", "Company Logo"
objMail.Send
Set objMail = Nothing
%>
AttachURL
<%
Option Explicit
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = "sue@na.com"
objMail.From = "bob@na.com"
objMail.Subject = "Your file"
objMail.Body = "Attached is the file you requested."
objMail.AttachFile "e:\inetpub\logo.gif", "Company Logo"
objMail.Send
Set objMail = Nothing
%>