發(fā)送帶附件的HTML格式郵件例程可以帶附件
發(fā)表時(shí)間：2023-08-13 來(lái)源：明輝站整理相關(guān)軟件相關(guān)文章人氣：
[摘要]如何通過(guò) ASP 來(lái)發(fā)送帶附件、格式為 HTML 的郵件？下面提供了一個(gè)例程. <%@ LANGUAGE=VBScript%><%Response.Buffer = TrueRes...
如何通過(guò) ASP 來(lái)發(fā)送帶附件、格式為 HTML 的郵件？下面提供了一個(gè)例程.
<%@ LANGUAGE=VBScript%>
<%
Response.Buffer = True
Response.Expires = 0
'創(chuàng)建對(duì)象實(shí)例
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ù)器上的位置，如果使用相對(duì)路徑，必須用 Server.MapPath 映射為真實(shí)路徑）
myMail.AttachFile "e:\test.txt"
'NewMail 對(duì)象的文字格式
'0 表示該 Body 可包含超文本置標(biāo)語(yǔ)言 (HTML)
'1 表示該 Body 只用于純文本（默認(rèn)值）
myMail.BodyFormat = 0
'NewMail 對(duì)象設(shè)置編碼
'0 表示將采用 MIME 格式
'1 表示將采用連續(xù)的純文本（默認(rèn)值）
myMail.MailFormat = 0
'給郵件對(duì)象的文本賦值
myMail.Body = HTML
'將郵件發(fā)出
myMail.Send
'銷毀對(duì)象實(shí)例，釋放內(nèi)存
Set myMail = Nothing
%>
