如何使用CDO.Message发邮件?

tommy9802 2008-12-09 11:43:29
从网上查了很多资料,照着写了如下的代码,但是执行总是失败,提示如下:

请问如何利用CDO.Message发送邮件?cm.From是从哪里获取?该如何填?还需要安装别的什么组件吗?非常感谢!

--------------------------------------
CDO.Message.1 错误 '80040220'

“SendUsing”配置值无效。

/mail.asp,行 24
--------------------------------------

<%
Dim cm
Set cm=Server.CreateObject("CDO.Message")
'创建对象
cm.From="Administrators"
'设置发信人的邮箱
cm.To="tommy9802@hotmail.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("发送邮件成功。")
%>
...全文
227 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
0041123 2008-12-09
是不是格式不对啊
cm.From= "Administrators@hotmail.com "
回复
tommy9802 2008-12-09
这个邮件地址从哪里获取的?不会是随便填一个都可以吧?
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2008-12-09 11:43
社区公告
暂无公告