<%@ LANGUAGE=VBScript%>
<%
Response.Buffer = True
Response.Expires = 0
'創建對象實例
Set myMail = Server.CreateObject("CDONTS.NewMail")
'以下是將要發送的內容
HTML = "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<title>Sending CDONTS Email Using HTML</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""FFFFFF"">"
HTML = HTML & "<p><font size=7>"
HTML = HTML & "This is a test mail in html<br>"
HTML = HTML & "Mail content here ...</font></p>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"
'發件人
myMail.From = "somebody@somewhere.com"
'收件人
myMail.To = "nobody@somewhere.com"
'密件抄送
myMail.Bcc = "nobody@somewhere.com"
'抄送
myMail.Cc = "nobody@somewhere.com"
'郵件的重要性
' 0 重要性低
' 1 重要性一般（默認）
' 2 重要性高
myMail.Importance = 2
'郵件主題
myMail.Subject = "Test mail in HTML"
'附件（注意 e:\test.txt 指的是服務器上的位置，如果使用相對路徑，必須用 Server.MapPath 映射為真實路徑）
myMail.AttachFile "e:\test.txt"
'NewMail 對象的文字格式
'0 表示該 Body 可包含超文本置標語言 (HTML)
'1 表示該 Body 只用于純文本（默認值）
myMail.BodyFormat = 0
'NewMail 對象設置編碼
'0 表示將采用 MIME 格式
'1 表示將采用連續的純文本（默認值）
myMail.MailFormat = 0
'給郵件對象的文本賦值
myMail.Body = HTML
'將郵件發出
myMail.Send
'銷毀對象實例，釋放內存
Set myMail = Nothing
%>
文章來源于領測軟件測試網 http://www.kjueaiud.com/
