其实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.tsingfeng.com/rss";
'上面是使用普通的文本格式发送邮件，只能是文字，不能支持html，所以这里不用
cm.HtmlBody="Online RSS Feeds Reader 是一个在线的RSS新闻阅读系统。"&_
"无需下载安装，只要注册了之后你就可以拥有和软件一样强大功能的RSS在线订阅聚合新闻的系统了。"&_
"不管你在任何地方，只要你能上网，你就能阅读你喜欢的订阅。"&_
"快去注册吧：http://www.tsingfeng.com/rss/";
'上面就是你构建的html正文，这样发出的邮件就比只有文字的好看多了。不要说你不会html吧
'cm.AddAttachment Server.MapPath("test.zip")
'如果有需要发送附件的话就用上面的方法把文件附加进去。
cm.Send
'最后当然是执行发送了
Set cm=Nothing
'发送成功后即时释放对象
Response.Write("发送邮件成功。")
%>
200610/01
Windows 2003下不注册组件用ASP发邮件【转】 Published by bugx 13:28:28 一月 10th,2006 in web种种.
- 此文发于 2006-1-10 13:28:28，归类于 web种种，已阅读 次
- Trackback引用地址：http://blog.nowans.com/trackback.asp?id=133
- 日志评论Feed地址：http://blog.nowans.com/feed.asp?o=comment&id=133
在某一年的这一天，我还写过……
- 是什么导致目前的个人站长朝如此方向发展呢？ - 2007年
- javascript的parseInt函数的特殊处 - 2007年
在 线 人
标题是不用注册组件发mail,但内容里却要注册cdonts组件
Unknown browser是cdosys不是cdonts。这是2003自带的组件，不需要注册的。
Unknown browser8好1 4
Unknown browser是我没有注意
cdonts.dll在windows xp下确实没有，只有cdosys.dll。好用。谢了。
Unknown browser我用的是win2003 server ,但没有安装smtp服务,
Unknown browser按以上方法使用时,出现以错误
CDO.Message.1 错误 '80040220'
“SendUsing”配置值无效。
是什么原因呢? 请高手指点
“SendUsing”配置值无效。
Unknown browser這是怎麼回事呢？請指教！
你把错误--"SendUsing”配置值无效。"
Unknown browser贴到google里
．．．
OK!