如何使用CDO.Message发邮件？

2008-12-09 11:43:29 330 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB-使用CDO连接Exchange Server发邮件实现CDO控件通过exchange server发送邮件邮箱环境企业邮箱 Exchange Server（office 365） 1. 首先加载 Microsoft CDO for Windows 2000 library. 2. 创建CDO实例 Set cdoObj = CreateObject("cdo.message") Set iConf = CreateObje 阅读详情

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

请问如何利用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("发送邮件成功。")
%>

...全文

利用CDO.Message发送邮件由于公司把网站从自己的服务器上移到了gd的asp空间上，gd的空间又不支持gmail,找了很多的资料。。才找到下面这个发邮件的代码。。经测试，完全可用 Set myMail = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields W 阅读详情

tommy9802

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

如何使用CDO.Message发邮件？

相关推荐