|
导读NewMail 对象(CDONTS 库)NewMail 对象提供只用很少的几行代码即可发送邮件的功能。 速查 声明的类型库: CDONTS.DLL首次启用: CDO for NTS Library ... NewMail 对象(CDONTS 库)NewMail 对象提供只用很少的几行代码即可发送邮件的功能。 速查 声明的类型库: CDONTS.DLL 首次启用: CDO for NTS Library 版本 1.2 父对象:(无) 子对象:(无) 默认属性: Value 属性 名首次启用版本 类型访问 Bcc1.2字符串只写 Body1.2IStream 对象或字符串只写 BodyFormat1.2长整型只写 Cc1.2字符串只写 ContentBase1.2字符串只写 ContentLocation1.2字符串只写 From1.2字符串只写 Importance1.2长整型只写 MailFormat1.2长整型只写 Subject1.2字符串只写 To1.2字符串只写 Value1.2字符串只写 Version1.2字符串只读 方法 名首次启用版本 参数 AttachFile1.2Source 作为 对象 或 字符串, (可选项)FileName 作为 字符串, (可选项)EncodingMethod 作为 长整型 AttachURL1.2Source 作为 对象 或 字符串, ContentLocation 作为 字符串, (可选项) ContentBase 作为 字符串, (可选项)EncodingMethod 作为 长整型 Send1.2(可选项)From 作为 字符串, (可选项)To 作为 字符串, (可选项)Subject 作为 字符串, (可选项)Body 作为 对象 或 字符串, (可选项)Importance 作为 长整型 SetLocaleIDs1.2CodePageID 作为 长整型 注释 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 -------------------------------------------------------------------------------- ? 1997 by Microsoft Corporation. All rights reserved. |
温馨提示:喜欢本站的话,请收藏一下本站!