CDOSYS 入门指南

• 下载源代码文件 - 1 Kb

引言

使用此示例允许您的网站用户提交反馈并使用 IIS 及其 SMTP 服务发送电子邮件。

背景

CDOSYS 是 CDONTS 的继任者，是一种从网页发送电子邮件的简便方法。 不幸的是，CDONTS 在 Windows XP 中已被弃用，因此网络作者现在必须使用 CDOSYS。 CDOSYS 的使用就像 CDONTS 一样简单，但是 CDOSYS 也允许作者使用 html 和数据源创建更复杂的电子邮件。

要求

• Windows 2000/XP
• 已安装 IIS 的 SMTP 服务
• 在安装了 IIS 的计算机上运行此示例。
• 将文件放在 Web 服务器目录中。
• 不要在 Windows 资源管理器中打开 htm 页面并期望它能工作。 您必须使用互联网，以便 IIS 参与处理。 例如，http://www.mydomain.com/sample1.htm 将有效。 c:\downloads\sample1\sample1.htm 将不起作用。
• 使用 JScript 作为 .asp 语言不像 vbscript 那样容易。

使用代码

第一步是调用组件...

Dim iMsg
Set iMsg = CreateObject("CDO.Message")
Dim iConf
Set iConf = CreateObject("CDO.Configuration")

第二步涉及验证正确的配置设置...

Dim Flds
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
Flds( _
 "http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") _
  = "c:\inetpub\mailroot\pickup"
Flds.Update

请特别注意上述代码中的路径。 第三步显示了消息的构建方式...

Set iMsg.Configuration = iConf
iMsg.To = Request.Form.Item("Email")
iMsg.From = "put_in_your_email_address_here@domain.com"
iMsg.Subject = Request.Form.Item("Subject")
iMsg.TextBody = Request.Form.Item("EContent")
iMsg.Send            

Request.Form.Item 捕获从 sample1.htm 页面的 form 中发布的数据。

关注点

这仅仅是冰山一角。 您可以使用 CDOSYS（和 CDOEX）做更多的事情。 请参阅 http://msdn.microsoft.com/library/default.asp?url=/nhp/default.asp?contentid=28000408 以获取更多详细信息...

历史

• 2003年9月6日 - 发布本文