如何使用CDO.Message发邮件？

[tommy9802]

从网上查了很多资料，照着写了如下的代码，但是执行总是失败，提示如下：

请问如何利用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="[e-mail]"
'设置收信人的邮箱
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("发送邮件成功。")
%>

[tommy9802]

这个邮件地址从哪里获取的？不会是随便填一个都可以吧？

[0041123]

是不是格式不对啊
cm.From= "[e-mail] "