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 appretiate your business" & vbCrLf
MyBody = MyBody & "Your stuff will arrive within 7 business days"
MyCDONTSMail.Body= MyBody
MyCDONTSMail.Send
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.
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.Cc="nobody2@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 appretiate your business" & vbCrLf
MyBody2 = MyBody2 & "Your stuff will arrive within 7 business days"
MyCDONTSMail3.Body= MyBody2
MyCDONTSMail3.Send
set MyCDONTSMail3=nothing
