發送帶附件的HTML格式郵件例程

2019-11-18 20:22:56

字體：大中小

來源：轉載

供稿：網友

發送帶附件的HTML格式郵件例程

　　如何通過 asp 來發送帶附件、格式為 HTML 的郵件？下面提供了一個例程.

<%@ 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 & ""
HTML = HTML & "This is a test mail in html "
HTML = HTML & "Mail content here ..."
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
%>

上一篇：英文的服務器不支持中文及中文數據庫的解決辦法

下一篇：關于0x80040e14錯誤 