Windows 2003下不注册组件用CDO.Message发邮件

作者:网络 来源:佚名 更新时间:2008-02-05 18:18:55 点击:
    其实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="[email protected]"
'设置发信人的邮箱
cm.to="[email protected]"
'设置收信人的邮箱
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("发送邮件成功。")
%>