如何將 Collaboration Data Objects for NTS 應用程式遷移至 Microsoft Collaboration Data Objects for Windows 2000

本文已封存。本文係以「現狀」提供且不會再更新。
結論
本文將逐步告訴您,如何將根據 CDONTS 物件模型的現有程式碼遷移至 CDOSYS。

您可以使用 Cdonts.dll 和 Cdosys.dll 物件程式庫,以網際網路標準格式和通訊協定來建立和處理電子郵件。Collaboration Data Objects for NTS (CDONTS) 原本是以 Microsoft CommercialInternet Server (MCIS) 來操作,因此包含在 Windows NT Option Pack 中。CDONTS 原本也包含在 Windows 2000 中,以便與 Windows NT 相容。CDONTS 不包含在 Microsoft Windows XP 和後續的 Windows 更新版本中。Microsoft Collaboration Data Objects for Windows 2000 (CDOSYS) 原本是當做 Windows 2000 作業系統元件來操作。根據 CDONTS 的現有程式碼,必須遷移至 CDOSYS。

功能比較

下列表格將比較 Cdonts.dll 和 Cdosys.dll 程式庫兩者的作業系統和功能的支援性。
功能CDONTSCDOSYS注意
Windows NT 支援作業系統都不包含
Windows 2000 支援作業系統都包含
Windows XP 支援作業系統只包含 CDOSYS
Exchange Server 支援
傳送郵件
公佈到新聞群組
使用簡易郵件傳送通訊協定 (SMTP) 網路 News 傳輸通訊協定 (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 伺服器的收取目錄中。目錄路徑是從本機 Metabase 讀取的。
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 多重 / 替代郵件格式。此外,還會從 HTML 自動建立純文字本文。純文字本文是以文字/純文字內文部分方式加入。
CDONTS 範例
 sHTML = "<html><body><fontcolor=""#FF0000"">" & _ "hello,Red</font></body></html>" Set m =CreateObject("CDONTS.NewMail") m.MailFormat = 0 ' CdoMailFormatMimem.BodyFormat = 0 ' CdoBodyFormatHTML m.Send "user1@company.com", _"user2@company.com", _ "test 1", _ sHTML 
CDOSYS 範例
 sHTML = "<html><body><fontcolor=""#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 ' CdoMailFormatMimem.AttachFile "d:\ptsp\test\test.doc" m.Send "user1@company.com", _"user2@company.com", _ "test.doc", _ "Here is the document yourequested"
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 documentyou requested." m.AddAttachment "file://d:\ptsp\test\test.doc"m.send

以 Uuencode 格式的附件傳送

對這兩個程式庫而言,如果要將訊息以 Uuencode 格式的附件傳送時,請變更訊息中的屬性以改變格式。
CDONTS 範例
 Set m =CreateObject("CDONTS.NewMail") m.MailFormat = 1 ' CdoMailFormatTextm.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 CharSet 屬性。CDONTS 必須使用 CP_UTF7=65000 常數,CDOSYS 的 CharSet 名稱是 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.Addm.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 知識庫」中的文件:
816789Read access to the Everyone group is removed after you install Exchange 2000 SP3
內容

文章識別碼:810702 - 最後檢閱時間:02/27/2014 13:29:43 - 修訂: 6.2

  • Microsoft Exchange Server 2003 Enterprise Edition
  • Microsoft Exchange Server 2003 Standard Edition
  • Microsoft Exchange 2000 Server Standard Edition
  • Microsoft Collaboration Data Objects 2.0 for NT Server
  • Microsoft Collaboration Data Objects 2.0
  • kbnosurvey kbarchive kbhowto kbhowtomaster KB810702
意見反應