Windows 2003下不注冊組件用ASP發(fā)郵件

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

什么是CDO.Message？在winnt和win2k下發(fā)送郵件要用CDONTS.NewMail，CDONTS.NewMail組件是需要注冊的，很簡單，只要在服務(wù)器上運(yùn)行命令行regsvr32 Cdonts.dll，在彈出的對話框中確定即可，使用CDONTS.NewMail服務(wù)還需安裝有iis自帶的smtp。到了windows2003，系統(tǒng)就沒有附帶Cdonts.dll文件了，只剩下一個(gè)類似的文件cdosys.dll，當(dāng)然這個(gè)文件在win2k也是有的（需要注冊組件），不過2003下好的是什么呢？該組件無需手動注冊，系統(tǒng)已經(jīng)自動注冊了�，F(xiàn)在我們來看看如何使用該組件吧。

<%
Dim cm
Set cm=Server.CreateObject("CDO.Message")
'創(chuàng)建對象
cm.From="from@test.com"
'設(shè)置發(fā)信人的郵箱
cm.To="to@test.com"
'設(shè)置收信人的郵箱
cm.Subject="我發(fā)現(xiàn)一個(gè)可以在線訂閱RSS的網(wǎng)站，以后不用再安裝什么軟件了。"
'設(shè)定郵件的主題
'cm.TextBody="http://www.knowsky.com/rss/"
'上面是使用普通的文本格式發(fā)送郵件，只能是文字，不能支持html，所以這里不用

cm.HtmlBody="Online RSS Feeds Reader 是一個(gè)在線的RSS新聞閱讀系統(tǒng)。"&_
"無需下載安裝，只要注冊了之后你就可以擁有和軟件一樣強(qiáng)大功能的RSS在線訂閱聚合新聞的系統(tǒng)了。"&_
"不管你在任何地方，只要你能上網(wǎng)，你就能閱讀你喜歡的訂閱。"&_
"快去注冊吧：<a href=http://www.gbmad.net/rss/>http://www.gbmad.net/rss/</a>"

'上面就是你構(gòu)建的html正文，這樣發(fā)出的郵件就比只有文字的好看多了。不要說你不會html吧

'cm.AddAttachment Server.MapPath("test.zip")
'如果有需要發(fā)送附件的話就用上面的方法把文件附加進(jìn)去。

cm.Send
'最后當(dāng)然是執(zhí)行發(fā)送了
Set cm=Nothing
'發(fā)送成功后即時(shí)釋放對象

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