基于Vi sual Basi c的Lot us Not es郵件擴(kuò)展工具開發(fā)

梁育誠

（廣東電網(wǎng)有限責(zé)任公司江門供電局，廣東江門 529000）

0 引言

Lotus Notes于1989年創(chuàng)立，是一個(gè)企業(yè)級(jí)通信、協(xié)同工作平臺(tái)，擁有安全性高、易于管理等優(yōu)點(diǎn)，符合企業(yè)網(wǎng)對(duì)應(yīng)用的要求。筆者單位采用基于Lotus Notes 7.0的定制版本作為內(nèi)部協(xié)同辦公工具，由于該版本最后更新時(shí)間為2005年，許多功能已遠(yuǎn)遠(yuǎn)落后于時(shí)代，不夠人性化，給實(shí)際工作帶來了一定的阻礙。所幸Lotus Notes自帶Lotus Script腳本語言可供開發(fā)人員在lotus designer中進(jìn)行更多個(gè)性化開發(fā)，并且提供了一個(gè)COM類接口，可在VB、#C、java等語言中調(diào)用。

Visual Basic（以下簡稱“VB”）是與Lotus同時(shí)代非常受歡迎的開發(fā)語言，具有易學(xué)易用、編程簡潔、可視化UI設(shè)計(jì)、程序集成化程度高等優(yōu)點(diǎn)，非常適用于快速開發(fā)小型窗體程序。

盡管VB在如今看來也是落后于時(shí)代的產(chǎn)物，但考慮到Lotus Script語法基本與VB相同以及VB開發(fā)窗體應(yīng)用的便捷性，因此還是決定采用VB6作為開發(fā)工具引入Lotus Domino Object組件進(jìn)行郵件擴(kuò)展工具開發(fā)。

1 需求分析

用戶在使用Lotus Notes發(fā)送郵件操作中，難免會(huì)出現(xiàn)重要公文、郵件內(nèi)容有誤或收件人有誤等情況，希望能立即撤回錯(cuò)誤郵件并重新發(fā)送正確郵件，由于不希望錯(cuò)誤內(nèi)容被閱讀，所以整個(gè)過程越快越有利；在執(zhí)行刪除之前，有的用戶可能僅想知道郵件在收件人當(dāng)中的已讀情況，根據(jù)已讀/未讀比例再進(jìn)行下一步操作的決策；對(duì)于較小的錯(cuò)誤，如果能實(shí)現(xiàn)靜默修正功能，更能改善用戶體驗(yàn)。

Lotus Notes 7.0版本并沒有自帶查詢郵件是否已讀和撤回功能，并且從單位管理制度考慮，即使具有該功能，由于無法被管理員有效監(jiān)管，可能會(huì)導(dǎo)致該功能被大量濫用，增加服務(wù)器負(fù)擔(dān)，甚至造成宕機(jī)風(fēng)險(xiǎn)。傳統(tǒng)的方法是，用戶提出申請(qǐng)并得到管理員審核通過后，使用Notes自帶的郵件刪除工具進(jìn)行刪除。

新建刪除命令，填寫所需刪除郵件的標(biāo)題，必須保證完全相同。經(jīng)過一系列繁雜的設(shè)置后啟動(dòng)程序，該工具將會(huì)在服務(wù)器中遍歷搜索所有用戶數(shù)據(jù)庫中該郵件的數(shù)據(jù)，檢索到后則執(zhí)行刪除。整個(gè)過程非常漫長且卡頓，浪費(fèi)算力，并且由于其檢索邏輯是以標(biāo)題作為關(guān)鍵字，為避免被誤刪，所以用戶需要等待整個(gè)過程完成后才可以重新發(fā)出新郵件。管理員希望能減少人工操作，執(zhí)行快捷方便，并能自動(dòng)導(dǎo)出相關(guān)日志記錄代替手工錄入，在執(zhí)行操作后用戶可以立即重新發(fā)送郵件，無須等待過程完成。

2 設(shè)計(jì)思路

第一步，分析數(shù)據(jù)結(jié)構(gòu)。根據(jù)官方提供的開發(fā)文檔以及在客戶端內(nèi)查看郵件屬性，可以得到一封郵件的所有屬性字段（圖1）。其中，$MessageID為郵件標(biāo)志，$Orig為郵件唯一標(biāo)志（與$MessageID主要區(qū)別為，當(dāng)一個(gè)用戶發(fā)件箱和收件箱皆有該郵件時(shí)，為確保$Orig在該用戶數(shù)據(jù)庫中的唯一性，收件箱中郵件的$Orig值會(huì)改變，而$MessageID則保持不變）；SendTo為收件人數(shù)組；CopyTo為抄送人數(shù)組；BlindCopyTo為密送；From為發(fā)件人；Subject為主題；PostDate為發(fā)件時(shí)間；Body為正文內(nèi)容；ISNEWDOC為是否已讀標(biāo)志。以上為本次開發(fā)主要使用的屬性。

第二步，檢索郵件方式。從數(shù)據(jù)結(jié)構(gòu)來看，既然每封郵件有其自身唯一對(duì)應(yīng)的主key，比起note自帶的工具采用標(biāo)題為關(guān)鍵字進(jìn)行檢索，選擇使用$MessageID會(huì)更加準(zhǔn)確和高效，同時(shí)也支持標(biāo)題精確檢索以及模糊檢索。

第三步，進(jìn)入收件人數(shù)據(jù)庫進(jìn)行檢索。由于每封郵件的收件人是有限的，無須全局遍歷檢索，只需要進(jìn)入每個(gè)收件人的數(shù)據(jù)庫檢索即可，能夠節(jié)省大量的檢索時(shí)間?？梢酝ㄟ^MessageID獲取該郵件對(duì)象，然后獲取SendTo數(shù)據(jù)從而取得收件人列表。

第四步，檢索出來后讀取ISNEWDOC字段判斷郵件是否已讀，使用RemovePermanently(True)方法執(zhí)行刪除操作或ReplaceItemValue()方法執(zhí)行替換修改操作。

所有操作執(zhí)行完畢后，該郵件即已完全消失或者被修正，達(dá)到了郵件撤回或靜默修改的目的，操作結(jié)束。

3 窗體設(shè)計(jì)

根據(jù)設(shè)計(jì)思路第二步，用戶需要提供發(fā)件人信息以及需要撤回的郵件的MessageID，因此繪制兩個(gè)輸入框，為了提供關(guān)于該郵件的更多信息以便管理員確認(rèn)，故加上主題、發(fā)送時(shí)間、正文顯示區(qū)域。繪制按鈕用以觸發(fā)檢索、修改及刪除等操作。根據(jù)管理員需求，再繪制一個(gè)狀態(tài)區(qū)域，即運(yùn)行過程細(xì)節(jié)展示區(qū)域以及導(dǎo)出日志按鈕。

4 開發(fā)

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

主要用到以下幾個(gè)模塊代碼（僅列出部分核心代碼，非完整代碼）：

4.1 核心方法介紹

CreateObject("Notes.NotesSession")：獲取當(dāng)前Note登錄的Session對(duì)象；GetDatabase("數(shù)據(jù)庫地址","names.nsf")：進(jìn)入通信錄數(shù)據(jù)庫；Search()：方法搜索發(fā)件人地址；GetFirstDocument()：獲取第一條搜索結(jié)果；GetFirstItem(字段名)：獲取指定字段；GetDatabase(服務(wù)器,數(shù)據(jù)庫)：獲取數(shù)據(jù)庫；GetLastDocument()：獲取搜索結(jié)果中的最后一個(gè)文檔；emovePermanently(True)徹底刪除郵件（如果是false則是刪除到回收站）；ReplaceItem Value(屬性,值)：替換屬性值。

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 ("數(shù)據(jù)庫地址","names.nsf") '進(jìn)入通信錄;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")'取得其所屬服務(wù)器sername=rtitem1.Text

Set rtitem2 =Maildoc.GetFirstItem("MailFile") '取得其數(shù)據(jù)庫地址;dbname = rtitem2.Text;Set Maildb =session.GetDatabase (sername, dbname) '進(jìn)入其郵箱;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") '獲取標(biāo)題;

Setposttime= Maildoc.GetFirstItem("PostedDate") '獲取發(fā)件時(shí)間;

4.4 執(zhí)行查詢是否已讀/修改/刪除操作

4.5 交互優(yōu)化

在上述核心代碼的基礎(chǔ)上，加入一些容錯(cuò)機(jī)制、自動(dòng)補(bǔ)全、群組收件人展開、按照主題模糊查詢、郵件批量修改、日志導(dǎo)出、僅刪除未讀等功能優(yōu)化客戶體驗(yàn)，具體代碼不再贅述。

5 測試

開發(fā)完成后進(jìn)行測試，順利運(yùn)行成功（圖3）。

6 結(jié)語

使用Domino接口與VB開發(fā)語言，既可以發(fā)揮Lotus Note強(qiáng)大的文檔處理能力，又可以發(fā)揮VB友好的可視化功能，并且開發(fā)快捷，工作效率提升明顯。