top
Loading...
NewMail對象(CDONTS庫)發送郵件
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("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

因為可以在 AttachFile 方法的參數中傳遞信息,所以要包含一個附件,只需在您的代碼中加入一條語句即可:

Set objNewMail = CreateObject("CDONTS.NewMail")
objNewMail.AttachFile("\serverschedulesched.xls", "SCHED.XLS")
objNewMail.Send("Automated Schedule Generator", "you@company.com", _
"Schedule", "Here''s the latest master schedule", 0)
Set objNewMail = Nothing

北斗有巢氏 有巢氏北斗