其實ASP可以做很多事，只是大家不知道怎麼用而以。微軟為asp提供了非常多的現成有用的組件，而這些組件卻沒有人知道，如用CDO.Message發送郵件。
什麼是CDO.Message？在winnt和win2k下發送郵件要用CDONTS.NewMail，CDONTS.NewMail組件是需要註冊的，很簡單，只要在服務器上運行命令行regsvr32 Cdonts.dll，在彈出的對話框中確定即可，使用CDONTS.NewMail服務還需安裝有iis自帶的smtp。到了windows2003，系統就沒有附帶Cdonts.dll文件了，只剩下一個類似的文件cdosys.dll，當然這個文件在win2k也是有的（需要註冊組件），不過2003下好的是什麼呢？該組件無需手動註冊，系統已經自動註冊了。現在我們來看看如何使用該組件吧。
<%
Dim cm
Set cm=Server.CreateObject("CDO.Message")
'創建對像
cm.From="from@test.com"
'設置發信人的郵箱
cm.To="to@test.com"
'設置收信人的郵箱
cm.Subject="我發現一個可以在線訂閱RSS的網站，以後不用再安裝什麼軟件了。"
'設定郵件的主題
'cm.TextBody="http://www.gbmad.net/rss/"
'上面是使用普通的文本格式發送郵件，只能是文字，不能支持html，所以這裡不用
cm.HtmlBody="Online RSS Feeds Reader 是一個在線的RSS新聞閱讀系統。"&_
"無需下載安裝，只要註冊了之後你就可以擁有和軟件一樣強大功能的RSS在線訂閱聚合新聞的系統了。"&_
"不管你在任何地方，只要你能上網，你就能閱讀你喜歡的訂閱。"&_
"快去註冊吧：<a href=http://www.gbmad.net/rss/>http://www.gbmad.net/rss/</a>"
'上面就是你構建的html正文，這樣發出的郵件就比只有文字的好看多了。不要說你不會html吧
'cm.AddAttachment Server.MapPath("test.zip")
'如果有需要發送附件的話就用上面的方法把文件附加進去。
cm.Send
'最後當然是執行發送了
Set cm=Nothing
'發送成功後即時釋放對像
Response.Write("發送郵件成功。")
%>
|
|
當前位置：開發者網絡 >> 技術教程 >> ASP教程 >> 郵件相關 >> 內容
