如何使用Domino接口结合VB6工具来开发一个邮件扩展工具

摘  要：

介绍了Lotus Notes内自带的部分组件以及Domino接口的应用，阐述了如何使用Domino接口结合VB6工具来开发一个邮件扩展工具，实现批量查询是否已读、批量修改、批量撤回等便捷功能。

引言

Lotus Notes于1989年创立，是一个企业级通信、协同工作平台，拥有安全性高、易于管理等优点，符合企业网对应用的要求。笔者单位是以基于Lotus Notes 7.0的定制版本作为内部协同办公工具，由于该版本最后更新时间为2005年，许多功能已远远落后于时代，不够人性化，给实际工作带来了一定的阻碍。所幸Lotus Notes自带Lotus Script脚本语言可供开发人员在lotus designer中进行更多个性化开发，并且提供了一个COM类接口，可在VB、#C、java等语言中调用[1]。

Visual Basic（以下简称“VB”）是与Lotus同时代非常受欢迎的开发语言，具有易学易用、编程简洁、可视化UI设计、程序集成化程度高等优点，非常适用于快速开发小型窗体程序。

尽管VB在如今看来也是落后于时代的产物，但考虑到Lotus Script语法基本与VB相同以及VB开发窗体应用的便捷性，因此还是决定采用VB6作为开发工具引入Lotus Domino Object组件进行邮件扩展工具开发。

 1 

需求分析

用户在使用Lotus Notes发送邮件操作中，难免会出现重要公文、邮件内容有误或收件人有误等情况，希望能立即撤回错误邮件并重新发送正确邮件，由于不希望错误内容被阅读，所以整个过程越快越有利；在执行删除之前，有的用户可能仅想知道邮件在收件人当中的已读情况，根据已读/未读比例再进行下一步操作的决策；对于较小的错误，如果能实现静默修正功能，更能改善用户体验。

Lotus Notes 7.0版本并没有自带查询邮件是否已读和撤回功能，并且从单位管理制度考虑，即使具有该功能，由于无法被管理员有效监管，可能会导致该功能被大量滥用，增加服务器负担，甚至造成宕机风险。传统的方法是，用户提出申请并得到管理员审核通过后，使用Notes自带的邮件删除工具进行删除[2]。

新建删除命令，填写所需删除邮件的标题，必须保证完全相同。经过一系列繁杂的设置后启动程序，该工具将会在服务器中遍历搜索所有用户数据库中该邮件的数据，检索到后则执行删除。整个过程非常漫长且卡顿，浪费算力，并且由于其检索逻辑是以标题作为关键字，为避免被误删，所以用户需要等待整个过程完成后才可以重新发出新邮件。管理员希望能减少人工操作，执行快捷方便，并能自动导出相关日志记录代替手工录入，在执行操作后用户可以立即重新发送邮件，无须等待过程完成。

 2 

设计思路

第一步，分析数据结构。根据官方提供的开发文档以及在客户端内查看邮件属性，可以得到一封邮件的所有属性字段（图1）。其中，$MessageID为邮件标志，$Orig为邮件唯一标志（与$MessageID主要区别为，当一个用户发件箱和收件箱皆有该邮件时，为确保$Orig在该用户数据库中的唯一性，收件箱中邮件的$Orig值会改变，而$MessageID则保持不变）；SendTo为收件人数组；CopyTo为抄送人数组；BlindCopyTo为密送；From为发件人；Subject为主题；PostDate为发件时间；Body为正文内容；ISNEWDOC为是否已读标志。以上为本次开发主要使用的属性。

第二步，检索邮件方式。从数据结构来看，既然每封邮件有其自身唯一对应的主key，比起note自带的工具采用标题为关键字进行检索，选择使用$MessageID会更加准确和高效，同时也支持标题精确检索以及模糊检索。

第三步，进入收件人数据库进行检索。由于每封邮件的收件人是有限的，无须全局遍历检索，只需要进入每个收件人的数据库检索即可，能够节省大量的检索时间。可以通过MessageID获取该邮件对象，然后获取SendTo数据从而取得收件人列表。

第四步，检索出来后读取ISNEWDOC字段判断邮件是否已读，使用RemovePermanently(True)方法执行删除操作或ReplaceItemValue()方法执行替换修改操作。

所有操作执行完毕后，该邮件即已完全消失或者被修正，达到了邮件撤回或静默修改的目的，操作结束。

 3 

窗体设计

根据设计思路第二步，用户需要提供发件人信息以及需要撤回的邮件的MessageID，因此绘制两个输入框，为了提供关于该邮件的更多信息以便管理员确认，故加上主题、发送时间、正文显示区域。绘制按钮用以触发检索、修改及删除等操作。根据管理员需求，再绘制状态区域即运行过程细节展示区域以及导出日志按钮。

 4 

开发

首先在Visual Basic 6中引用Lotus Domino Objects接口组件（图2）。

主要用到以下几个模块代码（仅列出部分核心代码，非完整代码）：

4.1

核心方法介绍

CreateObject("Notes.NotesSession")：获取当前Note登录的Session对象；GetDatabase("数据库地址", "names.nsf")：进入通信录数据库；Search()：方法搜索发件人地址；GetFirstDocument()：获取第一条搜索结果；GetFirstItem(字段名)：获取指定字段；GetDatabase(服务器,数据库)：获取数据库；GetLastDocument()：获取搜索结果中的最后一个文档；emovePermanently(True)彻底删除邮件（如果是false则是删除到回收站）；ReplaceItemValue(属性,值)：替换属性值。

4.2

初始化

Dim aDC As Object；Dim Maildoc As Object；Dim session As Object；Dim Maildb As Object；Dim view As Object；Dim a() As String；Dim arr() As String；Set session = CreateObject("Notes.NotesSession")

4.3

检索邮件

Set Maildb = session.GetDatabase("数据库地址", "names.nsf") '进入通信录;If Not Maildb.IsOpen Then Maildb.Open;fajian=Text1.Text;Set aDC = Maildb.Search("owner=""" & fajian & """ & type=""Person""", Nothing, 0) '在通信录中搜索该地址;Set Maildoc = aDC.GetFirstDocument() '取得该条文档;Set rtitem1 = Maildoc.GetFirstItem("MailServer") '取得其所属服务器sername = rtitem1.Text

Set rtitem2 = Maildoc.GetFirstItem("MailFile") '取得其数据库地址;dbname = rtitem2.Text;Set Maildb = session.GetDatabase(sername, dbname) '进入其邮箱;If Not Maildb.IsOpen Then Maildb.Open;If Combo1.Text = "MessageID" Then;docid = Left(Trim(Replace(Replace(Replace(Text2.Text, """", ""), Chr(13), ""), Chr(10), "")), 49) '输入邮件ID;Keyword = "@Contains($MessageID;""" & docid & """)";End If;Set aDC = Maildb.Search(Keyword, Nothing, 0) '搜索该邮件;Set Maildoc = aDC.GetLastDocument() '获取该邮件;

Set rtitem3 = Maildoc.GetFirstItem("SendTo") '获取收件人;Set rtitem4 = Maildoc.GetFirstItem("CopyTo")“获取抄送人;

Setsubject1= Maildoc.GetFirstItem("Subject") '获取标题;

Setposttime= Maildoc.GetFirstItem("PostedDate") '获取发件时间;

4.4

执行查询是否已读/修改/删除操作

Set Maildb= session.GetDatabase("JMEP02MAD/servers/Geph", "names.nsf"); Set aDC= Maildb.Search("owner=""" & a(i) & """ & type=""Person""", Nothing, 0) '查找收件人

Set Maildoc = aDC.GetFirstDocument() ;

Set rtitem1 = Maildoc.GetFirstItem("MailServer");sername = rtitem1.Text;Set rtitem2 = Maildoc.GetFirstItem("MailFile") ;        dbname = rtitem2.Text; Set Maildb = session.GetDatabase(sername, dbname)

On Error Resume Next

Call Maildoc.RemovePermanently(True)

4.5

交互优化

在上述核心代码的基础上，加入一些容错机制、自动补全、群组收件人展开、按照主题模糊查询、邮件批量修改、日志导出、仅删除未读等功能优化客户体验，具体代码不再赘述。

 5 

测试

开发完成后进行测试，顺利运行成功（图3）。

 6 

结语

使用Domino接口与VB开发语言，既可以发挥Lotus Note强大的文档处理能力，又可以发挥VB友好的可视化功能，并且开发快捷，工作效率提升明显。

审核编辑：刘清