ASP實(shí)例：實(shí)現(xiàn)郵件發(fā)送普通附件和嵌入附件_ASP教程

教程Tag：暫無Tag,歡迎添加,賺取U幣!

推薦：ASP開發(fā)10條經(jīng)驗(yàn)總結(jié)
歷時(shí)半年，我獨(dú)自一人完成了一個(gè)局級單位的管理信息系統(tǒng)，共發(fā)布BETA版29次，正式版本3次。asp oracle環(huán)境，285個(gè)ASP文件，功能涉及數(shù)據(jù)錄入、修改、模糊查詢、自動統(tǒng)計(jì)、數(shù)據(jù)分析和報(bào)表，這個(gè)

網(wǎng)上很多關(guān)于JMail發(fā)送郵件的例子都沒有寫如何發(fā)附件，或者沒有寫清如何發(fā)內(nèi)嵌的附件（比如把附件圖片嵌入到HTML信件里面）

其實(shí)最關(guān)鍵的就是這句要注釋掉

'JMail.ContentType = "text/html"

(為什么要發(fā)內(nèi)嵌的附件圖片？因?yàn)槿绻莍mg src=網(wǎng)上的地址，在outlook等客戶端內(nèi)則顯示是難看的“X”，需要手動下載圖片)

本例子參考了Dimac(w3JMail官方)的樣例，文件地址：

C:\Program Files\Dimac\w3JMail4\Examples\ASP\htmlimage.asp

(安裝了Jmail的都有)

例子代碼：

以下為引用的內(nèi)容：

<%
Set JMail = Server.CreateObject("JMail.Message")
'是否將信頭編碼成iso-8859-1字符集. 缺省是True
JMail.ISOEncodeHeaders = True
'如果JMail.silent設(shè)置為true,ErrorCode包含的是錯(cuò)誤代碼
JMail.Silent = True
'設(shè)置標(biāo)題和內(nèi)容編碼，如果標(biāo)題有中文，必須設(shè)定編碼為gb2312
JMail.Charset = "gb2312"
'JMail.ContentType = "text/html" '如果發(fā)內(nèi)嵌附件一定要注釋掉這行，重要！
JMail.From = "[email protected]" ' 發(fā)送者地址
JMail.FromName = "Skyhe System" ' 發(fā)送者姓名
JMail.MailServerUserName = "web" ' 身份驗(yàn)證的用戶名
JMail.MailServerPassword = "123456" ' 身份驗(yàn)證的密碼
'加入新的收件人
JMail.AddRecipient "[email protected]", "Mr.Example"
'JMail.AddRecipientBCC Email '密件收件人的地址
'JMail.AddRecipientCC Email '郵件抄送者的地址
JMail.Subject = "圖片測試�。�！"
JMail.Body = "A nice picture if you can read HTML-mail."

'增加一個(gè)普通附件
JMail.AddAttachment(Server.MapPath("images/email.gif"))
'增加一個(gè)嵌入式附件
' The return value of AddAttachment is used as a
' reference to the image in the HTMLBody.
'contentId = JMail.AddAttachment(Server.MapPath("images/email.gif"))
Dim contentId
contentId = JMail.AddAttachment("E:\images\email.gif")

'只有HTML格式支持嵌入圖片附件，我們采用HTML格式的郵件內(nèi)容
' As only HTML formatted emails can contain inline images
' we use HTMLBody and appendHTML
JMail.HTMLBody = "<html><body>Hi, here is a nice picture: "
JMail.appendHTML "<img src=""cid:" & contentId & """>"
JMail.appendHTML " good one huh?</body></html>"

'如果對方信箱不支持HTML格式郵件，我們?nèi)孕枰o他一個(gè)友善的提示
' But as not all mailreaders are capable of showing HTML emails
' we will also add a standard text body
JMail.Body = "Too bad you can't read HTML-mail."
JMail.appendText " There would have been a nice picture for you"

JMail.Send( "mail.skyhe.com" )
JMail.Close()
Set JMail = Nothing
%>

分享：ASP、PHP和JSP的比較
在網(wǎng)絡(luò)發(fā)展日新月異的今天,人們不斷的創(chuàng)新,包括網(wǎng)頁,網(wǎng)站的發(fā)展.原來的那些HTML超文本語言已經(jīng)不能完全滿足我們的做網(wǎng)頁的需要了.我們需要的是一個(gè)動感性,交互性都很強(qiáng)的網(wǎng)站.這樣才能和廣大的