|
怎樣制作發(fā)送HTML郵件 JMail組件 源碼下載(拋磚引玉篇) 這兩天想做封圖文并茂的ＨＴＭＬ郵件，頭都抓破了，發(fā)現(xiàn)ＦＯＢ里這方面的貼子幾乎沒(méi)有（可能是我沒(méi)找著），現(xiàn)在看到有篇寫得不錯(cuò)，轉(zhuǎn)過(guò)來(lái)同分享，希望會(huì)做的同志們多提供點(diǎn)參考意見(jiàn)
怎樣制作發(fā)送HTML郵件 JMail組件 源碼下載 怎樣制作發(fā)送HTML郵件 JMail組件 源碼下載 今天在論壇上碰到有人在問(wèn)怎樣制作HTML郵件，現(xiàn)學(xué)現(xiàn)賣，以下是記錄的一點(diǎn)心得。 做IT一年多，直到今天才在論壇上碰到有人問(wèn)怎么制作HTML郵件，真是汗死了。 不過(guò)也不是那么落后，雖說(shuō)是第一次聽(tīng)說(shuō)HTML郵件這個(gè)字眼，但基本上還是馬上猜到什么是HTML郵件。 首先，可以把現(xiàn)在的郵件分為純文本郵件與HTML郵件，純文本郵件,即只有文字.并且不能設(shè)置郵件文字的大小,樣式等；HTML即我們平時(shí)瀏覽網(wǎng)站時(shí)看到的網(wǎng)頁(yè)格式,可以添加圖片,FLASH等等.也可以設(shè)置諸如字體大小,顏色等字體樣式，郵件內(nèi)容會(huì)更精彩好看。 要制作、發(fā)送HTML郵件，首先需要服務(wù)器端的支持，也是需要在服務(wù)器端裝JMail組件。JMail 是 Dimac 公司（www.）推出的ASP發(fā)信組件，可以在ASP、VC、VB、Delphi等開(kāi)發(fā)工具中調(diào)用。和其他發(fā)信組件相比，它具有支持HTML、多收件人、抄送、暗送等特點(diǎn)。4.0以上版本除了具備以上特點(diǎn)外，還有以下優(yōu)點(diǎn)： 1、支持需要發(fā)信認(rèn)證的SMTP服務(wù)器（現(xiàn)在多數(shù)免費(fèi)郵箱都需要SMTP發(fā)信認(rèn)證）。 2、當(dāng)服務(wù)器支持SMTP發(fā)信時(shí)，JMail可以將信件加入SMTP發(fā)信隊(duì)列（速度很快）。 3、支持在HTML郵件中嵌入附件中的圖片。 4、支持POP3收信（不支持WEB收發(fā)信的信箱也可以自己搞定了）。 5、支持PGP加密郵件。 6、支持郵件合并（群發(fā)郵件，每封信可以不同。） 我們要學(xué)會(huì)發(fā)送HTML郵件，并不需要過(guò)多的了解JMail的內(nèi)容，最開(kāi)始我們只需要知道如何去調(diào)用JMail組件就可以了。如果想對(duì)JMail有比較深入的了解，可以去下載AJiang翻譯過(guò)的JMail中文手冊(cè)，下載地址http://www./luntan/w3jmail4_cn.pdf，英文版的可以到Dimac去下載。 利用JMail來(lái)發(fā)送HTML郵件需要指定組件的以下幾個(gè)屬性 指定smtp服務(wù)器驗(yàn)證登陸名msg.MailServerUserName = "xxx@xxx.com" 指定smtp服務(wù)器驗(yàn)證密碼 msg.MailServerPassword = "******" 指定發(fā)件人的Email地址 msg.From ="xxx@xxx.com" 指定收件人的Email地址 msg.AddRecipient="xxx@xxx.com" 指定發(fā)送郵件的主題 msg.Subject ="xxxxxx" 指定發(fā)送郵件的正文 msg.Body ="xxxxxx" 指定發(fā)送郵件的HTML正文 msg.HTMLBody ="xxxxxx" 原理不用過(guò)多解釋，看一下以下的示例，利用JMail來(lái)發(fā)送HTML郵件也就基本入門了。 SendMailEd.asp的源碼 <HTML> <BODY> <% Dim name,msg,SendMail name=Request.Form("name") Set msg = Server.Createobject("JMail.Message") msg.silent = true msg.Logging = true msg.Charset = "gb2312" msg.MailServerUserName = "xxx@xxx.com" '送件郵件的用戶名與密碼 msg.MailServerPassword = "******" msg.From = Request.Form("email") if name<>"" then msg.FromName = name end if msg.AddRecipient Request.Form("toemail") '收件人Email msg.Subject = Request.Form("subject") '信件主題 msg.Body = Request.Form("body") '正文 msg.HTMLBody = Request.Form("htmlbody") 'HTML正文 msg.ReturnReceipt=true msg.Send ("mail.haisheng-ufida.com") 'smtp服務(wù)器地址（企業(yè)郵局地址） set msg = nothing if err then SendMail=err.description err.clear else SendMail="OK" end if if SendMail="OK" then%> <p>郵件發(fā)送成功，謝謝使用</p> <%else%> 由于系統(tǒng)錯(cuò)誤，郵件未能成功發(fā)送 <%end if%> </BODY> </HTML> SendMail.asp的源碼 <HTML> <HEAD><title>用JMail組件發(fā)送郵件</title></HEAD> <BODY> <center><h1>用JMail組件發(fā)送郵件</h1></center> <hr> <form method="post" action="sendmailed.asp"> 請(qǐng)如實(shí)填寫以下內(nèi)容：<br><br> 姓名:<br><input type="text" size="25" name="name"><br> 電子郵件地址:<br><input type="text" size="25" name="email"><br> To電子郵件地址:<br><input type="text" size="25" name="toemail"><br> 主題:<br><input type="text" size="25" name="subject"><br><br> 詳細(xì)內(nèi)容:<br><textarea name="body" cols="40" rows="15" wrap="PHYSICAL"></textarea><br> HTML內(nèi)容:<br><textarea name="htmlbody" cols="40" rows="15" wrap="PHYSICAL"></textarea><br> <input type="submit" value="寄出"> </form> </BODY> </HTML> 試試吧 打開(kāi)http://..../sendmail.asp 填入相應(yīng)的郵件信息，你的第一封HTML郵件就發(fā)送成功了。 |
|
|
