CDONTS.NewMail是基於C語言編程而聲明的面向對象中一個可以傳送郵件的功能外掛程式。
基本介紹
- 外文名：CDONTS.NewMail
- 屬性：功能外掛程式
- 功能：提供很少代碼即可傳送郵件的功能
- 默認屬性： Value
CDONTS.NewMail簡介,屬性,方法,注釋,
CDONTS.NewMail簡介
NewMail 對象（CDONTS 庫）
NewMail 對象提供只用很少的幾行代碼即可傳送郵件的功能。
速查
聲明的類型庫： CDONTS.DLL
首次啟用： CDO for NTS Library 版本 1.2
父對象： （無）
子對象： （無）
默認屬性： Value
屬性
名 首次啟用版本 類型 訪問
Bcc 1.2 字元串 只寫
Body 1.2 IStream 對象或字元串 只寫
BodyFormat 1.2 長整型 只寫
Cc 1.2 字元串 只寫
ContentBase 1.2 字元串 只寫
ContentLocation 1.2 字元串 只寫
From 1.2 字元串 只寫
Importance 1.2 長整型 只寫
MailFormat 1.2 長整型 只寫
Subject 1.2 字元串 只寫
To 1.2 字元串 只寫
Value 1.2 字元串 只寫
Version 1.2 字元串 唯讀
方法
名 首次啟用版本 參數
AttachFile 1.2 Source 作為 對象 或 字元串,
（可選項）FileName 作為 字元串,
（可選項）EncodingMethod 作為 長整型
AttachURL 1.2 Source 作為 對象 或 字元串,
ContentLocation 作為 字元串,
（可選項） ContentBase 作為 字元串,
（可選項）EncodingMethod 作為 長整型
Send 1.2 （可選項）From 作為 字元串,
（可選項）To 作為 字元串,
（可選項）Subject 作為 字元串,
（可選項）Body 作為 對象 或 字元串,
（可選項）Importance 作為 長整型
SetLocaleIDs 1.2 CodePageID 作為 長整型
注釋
NewMail 對象不是建立在普通的 API 體系結構上。它被 Microsoft? Windows NT? Server 中運行的自動進程用於快速產生通告郵件。它不提供任何用戶接口，在郵件的產生和傳送過程中也不提供任何的互動。因此 NewMail 對象的屬性沒有被設計成為可以回讀和檢查。僅除 Version 外，其他屬性只能被寫入。
NewMail 對象是完備的並且不暴露任何 公共於所有的 CDO for NTS 庫對象的屬性。
一旦將附屬檔案和收件人添加到 NewMail 對象，就不能清除它們了，並且 NewMail 對象本身也不能被刪除。當 Send 方法成功完成任務時，NewMail 對象將失效但並不從記憶體中清除。程式設計師應該將失效對象設定為 Nothing 以便將其從記憶體中清除或給它重新分配另一個 NewMail 對象。企圖訪問已傳送的 NewMail 對象將導致返回 CdoE_INVALID_OBJECT。
NewMail 對象不在包含 CDO for NTS Library 對象的層次結構中。它不能訪問其他任何對象，也不能從其他對象中訪問。與 Session 對象一樣，它被認為是最上層的對象並且直接由 Microsoft? Visual Basic? 程式創建。其 ProgID 是 CDONTS.NewMail。下面這段代碼通過早期的綁定創建了一個 NewMail 對象：
Dim objNewMail As CDONTS.NewMail
Set objNewMail = CreateObject("CDONTS.NewMail")
NewMail 對象的主要優點在於它產生和傳送郵件的簡單性和易用性。用戶不必登錄到一個會話，也不必與資料夾和郵件集合打交道。只需創建 NewMail 對象，將其傳送出去，然後將其設定為 Nothing 即可。用戶可以在 Send 方法的參數中提供關鍵信息。在多數情況下，只需 3 行代碼：
Set objNewMail = CreateObject("CDONTS.NewMail")
objNewMail.Send("[email protected]", "[email protected]", "Hello", _
"I sent this in 3 statements!", 0) @# low importance
Set objNewMail = Nothing @# canNOT reuse it for another message
因為可以在 AttachFile 方法的參數中傳遞信息，所以要包含一個附屬檔案，只需在您的代碼中加入一條語句即可：
Set objNewMail = CreateObject("CDONTS.NewMail")
objNewMail.AttachFile("\\server\schedule\sched.xls", "SCHED.XLS")
objNewMail.Send("Automated Schedule Generator", "[email protected]", _
"Schedule", "Here@#s the latest master schedule", 0)
Set objNewMail = Nothing
