Sử dụng CDONTS gửi thư với định dạng text bình thường.
Code
<%
''khai báo biến
Dim MyBody
Dim MyCDONTSMail
%>
<%
''khởi tạo đối tướng gửi mail CDONTS
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
''mail người gửi
MyCDONTSMail.From= "minh@design.vn"
''mail người nhận
MyCDONTSMail.To= "admin@aspvn.net"
''tiêu đề mail
MyCDONTSMail.Subject="Đây là tiêu đề mail"
''nội dung cần gửi
MyBody = "Thank you for ordering that stuff" & vbCrLf
MyBody = MyBody & "We appreciate your business" & vbCrLf
MyBody = MyBody & "Your stuff will arrive within 7 business days"
''gán nội dung cần gửi
MyCDONTSMail.Body= MyBody
''bắt đầu gửi mail
MyCDONTSMail.Send
''giải phóng đối tượng
set MyCDONTSMail=nothing
%>
Sử dụng CDONTS gửi thư với định dạng HTML.
Code
<%
''khai báo biến
Dim MyCDONTSMail2
Dim HTML
''khởi tạo đối tượng gửi mail CDONTS
Set MyCDONTSMail2 = CreateObject("CDONTS.NewMail")
''phần nội dung mail với định dạng HTML
HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<title>Sử dụng CDONTS gửi thư với định dạng HTML</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""FFFFFF"">"
HTML = HTML & "<p><font size =""3"" face=""Arial""><strong>"
HTML = HTML & "Name Of Store</strong><br>"
HTML = HTML & "Incoming Customer Order</strong></p>"
HTML = HTML & "<p align = ""center"">Bla Bla Bla Bla Bla</p>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"
''mail người gửi
MyCDONTSMail2.From= "minh@design.vn"
''mail người nhận
MyCDONTSMail2.To= "admin@aspvn.net"
''tiêu đề mail
MyCDONTSMail2.Subject="Incoming Customer Order"
''khai báo BodyFormat = 0 và MailFormat = 0 để gửi nội dung với định dạng HTML
MyCDONTSMail2.BodyFormat=0
MyCDONTSMail2.MailFormat=0
''nội dung mail
MyCDONTSMail2.Body=HTML
''bắt đầu gửi thư
MyCDONTSMail2.Send
''giải phóng đối tượng
set MyCDONTSMail2=nothing
%>
Sử dụng CDONTS gửi thư gắn kèm file và gửi 1 bản Carbon Copy cho người khác (CC).
Code
<%
''khai báo biến
Dim MyBody2
Dim MyCDONTSMail3
%>
<%
''khởi tạo đối tượng gửi mail CDONTS
Set MyCDONTSMail3 = CreateObject("CDONTS.NewMail")
''mail người gửi
MyCDONTSMail3.From=
minh@design.vn ''mail người nhận
MyCDONTSMail3.To=
nobody@nowhere.com ''mail người nâận bản CC
MyCDONTSMail3.Cc=nobody2@nowhere.com
''tiêu đề mail
MyCDONTSMail3.Subject="This is a Test"
''file đính kèm theo mail (dùng đường dẫn tương đối
MyCDONTSMail3.AttachFile Server.MapPath("/somedirectory/bla.txt")
'' file đính kèm (dùng đường dẫn tuyệt đối
''MyCDONTSMail3.AttachFile ("C:\inetpub\wwwroot\somedirectory\bla.txt")
''nội dung của mail
MyBody2 = "Thank you for ordering that stuff" & vbCrLf
MyBody2 = MyBody2 & "We appreciate your business" & vbCrLf
MyBody2 = MyBody2 & "Your stuff will arrive within 7 business days"
''gắn nội dung mail vào
MyCDONTSMail3.Body= MyBody2
''bắt đầu gửi mail
MyCDONTSMail3.Send
''giải phóng đối tượng
set MyCDONTSMail3=nothing
%>
