|
發(fā)送帶附件的HTML格式郵件例程
如何通過 ASP 來發(fā)送帶附件、格式為 HTML 的郵件？下面提供了一個例程.
<%@ LANGUAGE=VBScript%>
<%
Response.Buffer = True
Response.Expires = 0
'創(chuàng)建對象實例
Set myMail = Server.CreateObject("CDONTS.NewMail")
'以下是將要發(fā)送的內(nèi)容
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>"
'發(fā)件人
myMail.From = "somebody@somewhere.com"
'收件人
myMail.To = "nobody@somewhere.com"
'密件抄送
myMail.Bcc = "nobody@somewhere.com"
'抄送
myMail.Cc = "nobody@somewhere.com"
'郵件的重要性
' 0 重要性低
' 1 重要性一般（默認(rèn)）
' 2 重要性高
myMail.Importance = 2
'郵件主題
myMail.Subject = "Test mail in HTML"
'附件（注意 e:\test.txt 指的是服務(wù)器上的位置，如果使用相對路徑，必須用 Server.MapPath 映射為真實路徑）
myMail.AttachFile "e:\test.txt"
'NewMail 對象的文字格式
'0 表示該 Body 可包含超文本置標(biāo)語言 (HTML)
'1 表示該 Body 只用于純文本（默認(rèn)值）
myMail.BodyFormat = 0
'NewMail 對象設(shè)置編碼
'0 表示將采用 MIME 格式
'1 表示將采用連續(xù)的純文本（默認(rèn)值）
myMail.MailFormat = 0
'給郵件對象的文本賦值
myMail.Body = HTML
'將郵件發(fā)出
myMail.Send
'銷毀對象實例，釋放內(nèi)存
Set myMail = Nothing
%>
| 
![發(fā)送帶附件的HTML格式郵件例程[轉(zhuǎn)]可以帶附件的喲。精華備查？](http://img.luoboxitong.cn/upload/noimg.jpg)