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("\\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

作者：不详 出处： 不详