Windows 2003下不註冊組件用CDO.Message發郵件

來源:互聯網
上載者:User
window|發郵件|註冊組件     其實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.knowsky.com/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("發送郵件成功。")
%>



相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.