Windows 2003下不註冊組件用ASP發郵件

window|發郵件|註冊組件

其實ASP可以做很多事，只是大家不知道怎麼用而以。微軟為asp提供了非常多的現成有用的組件，而這些組件卻沒有人知道，如用CDO.Message發送郵件。

什麼是CDO.Message？在winnt和win2k下發送郵件要用CDONTS.NewMail，CDONTS.NewMail組件是需要註冊的，很簡單，只要在伺服器上運行命令列regsvr32Cdonts.dll，在彈出的對話方塊中確定即可，使用CDONTS.NewMail服務還需安裝有iis內建的smtp。到了windows2003，系統就沒有附帶Cdonts.dll檔案了，只剩下一個類似的檔案cdosys.dll，當然這個檔案在win2k也是有的（需要註冊組件），不過2003下好的是什麼呢？該組件無需手動註冊，系統已經自動註冊了。現在我們來看看如何使用該組件吧。

<%
Dimcm
Setcm=Server.CreateObject("CDO.Message")
'建立對象
cm.From=""
'設定發信人的郵箱
cm.To=""
'設定收信人的郵箱
cm.Subject="我發現一個可以線上訂閱RSS的網站，以後不用再安裝什麼軟體了。"
'設定郵件的主題
'cm.TextBody="歡迎來到小雨線上"
'上面是使用普通的文字格式設定發送郵件，只能是文字，不能支援html，所以這裡不用

cm.HtmlBody="看網路天下，盡顯英雄本色"&_
"快加入小雨線上網站聯盟吧！"&_
"快去註冊吧：<ahref=http://www.smallrain.net/webmeng.asp>網站聯盟</a>"

'上面就是你構建的html本文，這樣發出的郵件就比只有文字的好看多了。不要說你不會html吧

'cm.AddAttachmentServer.MapPath("test.zip")
'如果有需要發送附件的話就用上面的方法把檔案附加進去。

cm.Send
'最後當然是執行發送了
Setcm=Nothing
'發送成功後即時釋放對象

Response.Write("發送郵件成功。")
%>