VBA编程：自动化通过Lotus Notes发送邮件

"这篇资源是关于使用VBA（Visual Basic for Applications）来操纵Lotus Notes发送电子邮件的学习笔记。作者通过创建VBA宏，实现了自动化的邮件发送功能，具体包括设置邮件主题、添加附件、指定收件人等操作。" 在Lotus Notes中，通过VBA进行自动化邮件发送是一种有效提高工作效率的方式。以下是该笔记中涉及的关键知识点： 1. **VBA对象模型**: VBA是一种内置在Microsoft Office中的编程语言，用于自动化和扩展Office应用程序的功能。在这段代码中，VBA被用来操控Lotus Notes的对象，如`NotesSession`、`NotesDatabase`、`NotesDocument`和`NotesRichTextItem`。 2. **创建NotesSession对象**: `CreateObject("Notes.NotesSession")` 创建了一个Notes会话对象，这是与Lotus Notes服务器交互的基础。这个对象可以用来登录、获取数据库等。 3. **获取或打开NotesDatabase对象**: `GETDATABASE` 方法用于根据服务器名和数据库路径获取或打开一个数据库。在这个例子中，数据库是个人邮箱，路径是"D:\notes\data\mail3\tonyhf.nsf"。 4. **创建NotesDocument对象**: `Createdocument` 方法用来创建一个新的邮件文档。邮件文档相当于一个未发送的邮件。 5. **创建NotesRichTextItem对象**: 邮件的正文通常包含在`RichTextItem`中，`CREATERICHTEXTITEM("Body")` 创建了名为“Body”的富文本项，用于添加邮件正文内容。 6. **嵌入附件**: `EMBED_OBJECT` 方法允许将文件作为附件插入到邮件的富文本项中。在这里，它将当前工作簿（可能是Excel文件）作为附件添加到邮件的“Body”中。 7. **设置邮件属性**: `Form="Memo"` 指定了邮件的类型为普通邮件（Memo）。`SendTo` 属性设置了邮件的收件人，这里是一个VBA数组，包含一个邮件地址。 8. **设置邮件主题**: 通过 `.Subject` 属性设定邮件的主题，这里使用常量 `stSubjectAsString` 来存储主题。 9. **发送邮件**: 最后，`Send` 方法发送已准备好的邮件。 这段VBA代码提供了一个基本的框架，可以根据实际需求进行修改和扩展，比如添加抄送人、密送人，设置邮件优先级，或者处理错误情况。对于经常需要通过Lotus Notes发送邮件的用户，这样的自动化脚本可以大大提高工作效率，减少手动操作的繁琐。