Cdonts mail sisteminin nasıl çalıştığını aşağıda test edebilirsiniz.
E-mail adresinizi giriniz:
CDONTS kullanarak text olarak email göndermek:
<% 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 %>
CDONTS kullanarak HTML emaili göndermek:
<% Dim MyCDONTSMail2 Dim HTML Set MyCDONTSMail2 = CreateObject(“CDONTS.NewMail”) HTML = “” HTML = HTML & “” HTML = HTML & “” HTML = HTML & “Sending CDONTS Email Using HTML” HTML = HTML & “” HTML = HTML & “” HTML = HTML & “
”
HTML = HTML & “Name Of Store
”
HTML = HTML & “Incoming Customer Order”
HTML = HTML & “
Bla Bla Bla Bla Bla” HTML = HTML & “” HTML = HTML & “” MyCDONTSMail2.From= “somebody@somewhere.com” MyCDONTSMail2.To=”nobody@somewhere.com” MyCDONTSMail2.Subject=”Incoming Customer Order” MyCDONTSMail2.BodyFormat=0 MyCDONTSMail2.MailFormat=0 MyCDONTSMail2.Body=HTML MyCDONTSMail2.Send set MyCDONTSMail2=nothing %>
CDONTS kullanarak maile ek (attachment) yapmak ve CC (Carbon Copy) mail adresi ilave etmek:
<% 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 %>
