如何将用于 NTS 应用程序的协作数据对象迁移到用于 Windows 2000 的 Microsoft 协作数据对象

文章翻译 文章翻译
文章编号: 810702 - 查看本文应用于的产品
本文已归档。它按“原样”提供,并且不再更新。
展开全部 | 关闭全部

本文内容

概要

本文逐步介绍了如何将基于 CDONTS 对象模型的现有代码迁移到 CDOSYS。

您可以使用 Cdonts.dll 和 Cdosys.dll 对象库通过 Internet 标准格式和协议来创建和处理电子邮件。最初实现用于 NTS 的协作数据对象 (CDONTS) 的目的是与 Microsoft Commercial Internet Server (MCIS) 配合使用,并且 CDONTS 最初包含在 Windows NT Option Pack 中。CDONTS 还包含在 Windows 2000 中以实现与 Windows NT 的兼容。Microsoft Windows XP 以及 Windows 的后续版本中不包含 CDONTS。用于 Windows 2000 的 Microsoft 协作数据对象 (CDOSYS) 是作为一个 Windows 2000 操作系统组件实现的,并作为这样的一个组件包含在内。基于 CDONTS 的现有代码必须迁移到 CDOSYS。

功能比较

下表比较了 Cdonts.dll 库和 Cdosys.dll 库中的操作系统 (OS) 支持及功能支持。
收起该表格展开该表格
功能CDONTSCDOSYS备注
Windows NT 支持这两个库都没有包含在操作系统中
Windows 2000 支持这两个库都包含在操作系统中
Windows XP 支持只有 CDOSYS 包含在操作系统中
Exchange 服务器支持
发送邮件
投递到新闻组
使用简单邮件传输协议 (SMTP) 网络新闻传输协议 (NNTP) 端口发送(投递)
MIME 和 Uuencode 邮件格式
显式控制 MIME 正文部分的结构、编码、字符集及其他内容。
HTML 和 MHTML 支持
列出/读取本地投递目录
通过 POP3 列出/读取收件箱
传输事件接收支持
答复和转发功能

示例

下列示例阐明了如何分别通过使用 CDONTS 和 CDOSYS 来执行同一任务。下面的每个示例都描述了这两个库所共有的一项功能,然后给出用于在每个库中实现该功能的代码示例。这些代码示例都使用 Windows 2000 Service Pack 2 (SP2) 和下列版本的库进行了验证:
  • CDONTS 6.0.3939.0
  • CDOSYS 6.0.3943.3

简单发送

本示例是这两个库最常见的用法。在本示例中,这两个库都撰写了要发送到 SMTP 服务器的拾取目录的邮件。目录路径是从本地元数据库中读取的。
CDONTS 示例
 set m =
CreateObject("CDONTS.NewMail") m.Send "user1@company.com", _
"user2@company.com", _ "test 1", _ "hello there" 
CDOSYS 示例
 Set m =
CreateObject("CDO.Message") m.From = "user1@company.com" m.To =
"user2@company.com" m.Subject = "test 1" m.TextBody = "hello there"
m.send

发送 HTML 正文

下列示例将 HTML 正文文本放在邮件中。否则,这些示例将与“简单发送”示例类似。在这两组示例中,均使用了 MIME multipart/alternative 邮件格式。另外,还根据 HTML 自动创建了纯文本正文。纯文本正文作为 text/plain 正文部分包含在内。
CDONTS 示例
 sHTML = "<html><body><font
color=""#FF0000"">" & _ "hello,
Red</font></body></html>" Set m =
CreateObject("CDONTS.NewMail") m.MailFormat = 0 ' CdoMailFormatMime
m.BodyFormat = 0 ' CdoBodyFormatHTML m.Send "user1@company.com", _
"user2@company.com", _ "test 1", _ sHTML 
CDOSYS 示例
 sHTML = "<html><body><font
color=""#FF0000"">" & _ "hello,
Red</font></body></html>" Set m = CreateObject("CDO.Message")
m.From = "user1@company.com" m.To = "user2@company.com" m.Subject = "test 1"
m.HtmlBody = sHTML m.send

用 MIME 格式的附件发送


CDONTS 示例
Set m = CreateObject("CDONTS.NewMail") m.MailFormat = 0 ' CdoMailFormatMime
m.AttachFile "d:\ptsp\test\test.doc" m.Send "user1@company.com", _
"user2@company.com", _ "test.doc", _ "Here is the document you
requested"
CDOSYS 示例
 Set m
= CreateObject("CDO.Message") m.From = "user1@company.com" m.To =
"user2@company.com" m.Subject = "test.doc" m.TextBody = "Here is the document
you requested." m.AddAttachment "file://d:\ptsp\test\test.doc"
m.send

用 Uuencode 格式的附件发送

对于这两个库,要以 Uuencode 格式发送带附件的邮件,都应更改邮件的属性以更改邮件格式。
CDONTS 示例
 Set m =
CreateObject("CDONTS.NewMail") m.MailFormat = 1 ' CdoMailFormatText
m.AttachFile "d:\ptsp\test\test.doc" m.Send "user1@company.com", _
"user2@company.com", _ "test.doc", _ "Here is the document you requested"
CDOSYS 示例
 Set m =
CreateObject("CDO.Message") m.MimeFormatted = false m.From =
"user1@company.com" m.To = "user2@company.com" m.Subject = "test.doc"
m.TextBody = "Here is the document you requested." m.AddAttachment
"file://d:\ptsp\test\test.doc" m.send

发送 Unicode 邮件文本

本示例在收件人的显示名称和邮件文本中包含一个 Unicode 字符(欧元符号 ,Unicode 代码数据点 0x20ac)。在这两个示例中,“”都被编码到 utf-7 字符集属性中。CDONTS 必须使用 CP_UTF7=65000 常数。对于 CDOSYS,字符集名称为 unicode-1-1-utf-7
CDONTS 示例
 Set s = CreateObject("CDONTS.Session") S.LogonSMTP "User 1",
"user1@company.com" s.SetLocaleIDs 65000 ' cpUTF7 Set m = s.Outbox.Messages.Add
m.MessageFormat = 0 ' CdoMime set r = m.Recipients.Add 'r.address =
"user2@company.com" r.name = "Joe " r.address = "<joe.euro@company.com>"
m.Subject = "Unicode content" m.Text = "That will be 5, please."
m.Send
CDOSYS 示例
set m =
CreateObject("CDO.Message") m.From = "User1 <user1@company.com>" m.To =
"Joe  <joe.euro@company.com>" m.Subject = "Unicode content" set b =
m.bodypart b.charset = "unicode-1-1-utf-7" m.textbody = "That will be 5,
please." m.send

参考

有关更多信息,请访问下面的 MSDN 网站: 有关更多信息,请单击下面的文章编号,以查看 Microsoft 知识库中相应的文章:
816789 安装 Exchange 2000 Service Pack 3 后删除了对 Everyone 组的读取访问权限

属性

文章编号: 810702 - 最后修改: 2014年2月27日 - 修订: 6.4
这篇文章中的信息适用于:
  • Microsoft Exchange Server 2003 Enterprise Edition
  • Microsoft Exchange Server 2003 Standard Edition
  • Microsoft Exchange 2000 Server 标准版
  • Microsoft Collaboration Data Objects 2.0 for NT Server
  • Microsoft Collaboration Data Objects 2.0
关键字:?
kbnosurvey kbarchive kbhowto kbhowtomaster KB810702
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性,不作任何声明。 所有该等文件及有关图形均"依样"提供,而不带任何性质的保证。Microsoft和/或其各供应商特此声明,对所有与该等信息有关的保证和条件不负任何责任,该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下,在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中,Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com