NewMail 對(duì)象（CDONTS 庫(kù)）
NewMail 對(duì)象提供只用很少的幾行代碼即可發(fā)送郵件的功能。

速查
聲明的類(lèi)型庫(kù)： CDONTS.DLL
首次啟用： CDO for NTS Library 版本 1.2
父對(duì)象： （無(wú)）
子對(duì)象： （無(wú)）
默認(rèn)屬性： Value


屬性

名 首次啟用版本 類(lèi)型 訪問(wèn)

Bcc 1.2 字符串 只寫(xiě)
Body 1.2 IStream 對(duì)象或字符串 只寫(xiě)
BodyFormat 1.2 長(zhǎng)整型 只寫(xiě)
Cc 1.2 字符串 只寫(xiě)
ContentBase 1.2 字符串 只寫(xiě)

ContentLocation 1.2 字符串 只寫(xiě)
From 1.2 字符串 只寫(xiě)
Importance 1.2 長(zhǎng)整型 只寫(xiě)
MailFormat 1.2 長(zhǎng)整型 只寫(xiě)
Subject 1.2 字符串 只寫(xiě)
To 1.2 字符串 只寫(xiě)
Value 1.2 字符串 只寫(xiě)
Version 1.2 字符串 只讀


方法

名 首次啟用版本 參數(shù)

AttachFile 1.2 Source 作為 對(duì)象 或 字符串,
（可選項(xiàng)）FileName 作為 字符串,
（可選項(xiàng)）EncodingMethod 作為 長(zhǎng)整型
AttachURL 1.2 Source 作為 對(duì)象 或 字符串,
ContentLocation 作為 字符串,
（可選項(xiàng)） ContentBase 作為 字符串,
（可選項(xiàng)）EncodingMethod 作為 長(zhǎng)整型

Send 1.2 （可選項(xiàng)）From 作為 字符串,
（可選項(xiàng)）To 作為 字符串,
（可選項(xiàng)）Subject 作為 字符串,
（可選項(xiàng)）Body 作為 對(duì)象 或 字符串,
（可選項(xiàng)）Importance 作為 長(zhǎng)整型
SetLocaleIDs 1.2 CodePageID 作為 長(zhǎng)整型


注釋
NewMail 對(duì)象不是建立在普通的 API 體系結(jié)構(gòu)上。它被 Microsoft? Windows NT? Server 中運(yùn)行的自動(dòng)進(jìn)程用于快速產(chǎn)生通告郵件。它不提供任何用戶(hù)接口，在郵件的產(chǎn)生和發(fā)送過(guò)程中也不提供任何的交互。因此 NewMail 對(duì)象的屬性沒(méi)有被設(shè)計(jì)成為可以回讀和檢查。僅除 Version 外，其他屬性只能被寫(xiě)入。

NewMail 對(duì)象是完備的并且不暴露任何 公共于所有的 CDO for NTS 庫(kù)對(duì)象的屬性。

一旦將附件和收件人添加到 NewMail 對(duì)象，就不能清除它們了，并且 NewMail 對(duì)象本身也不能被刪除。當(dāng) Send 方法成功完成任務(wù)時(shí)，NewMail 對(duì)象將失效但并不從內(nèi)存中清除。程序員應(yīng)該將失效對(duì)象設(shè)置為 Nothing 以便將其從內(nèi)存中清除或給它重新分配另一個(gè) NewMail 對(duì)象。企圖訪問(wèn)已發(fā)送的 NewMail 對(duì)象將導(dǎo)致返回 CdoE_INVALID_OBJECT。

NewMail 對(duì)象不在包含 CDO for NTS Library 對(duì)象的層次結(jié)構(gòu)中。它不能訪問(wèn)其他任何對(duì)象，也不能從其他對(duì)象中訪問(wèn)。與 Session 對(duì)象一樣，它被認(rèn)為是最上層的對(duì)象并且直接由 Microsoft? Visual Basic? 程序創(chuàng)建。其 ProgID 是 CDONTS.NewMail。下面這段代碼通過(guò)早期的綁定創(chuàng)建了一個(gè) NewMail 對(duì)象：

Dim objNewMail As CDONTS.NewMail
Set objNewMail = CreateObject("CDONTS.NewMail")

NewMail 對(duì)象的主要優(yōu)點(diǎn)在于它產(chǎn)生和傳送郵件的簡(jiǎn)單性和易用性。用戶(hù)不必登錄到一個(gè)會(huì)話，也不必與文件夾和郵件集合打交道。只需創(chuàng)建 NewMail 對(duì)象，將其發(fā)送出去，然后將其設(shè)置為 Nothing 即可。用戶(hù)可以在 Send 方法的參數(shù)中提供關(guān)鍵信息。在多數(shù)情況下，只需 3 行代碼：

Set objNewMail = CreateObject("CDONTS.NewMail")
objNewMail.Send("me@company.com", "you@company.com", "Hello", _
"I sent this in 3 statements!", 0) '' low importance
Set objNewMail = Nothing '' canNOT reuse it for another message

因?yàn)榭梢栽?AttachFile 方法的參數(shù)中傳遞信息，所以要包含一個(gè)附件，只需在您的代碼中加入一條語(yǔ)句即可：

Set objNewMail = CreateObject("CDONTS.NewMail")
objNewMail.AttachFile("\\server\schedule\sched.xls", "SCHED.XLS")
objNewMail.Send("Automated Schedule Generator", "you@company.com", _
"Schedule", "Here''s the latest master schedule", 0)
Set objNewMail = Nothing
（出處：熱點(diǎn)網(wǎng)絡(luò)）