亚洲免费av电影一区二区三区,日韩爱爱视频,51精品视频一区二区三区,91视频爱爱,日韩欧美在线播放视频,中文字幕少妇AV,亚洲电影中文字幕,久久久久亚洲av成人网址,久久综合视频网站,国产在线不卡免费播放

        ?

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

        2022-08-08 11:02:14梁育誠
        機電信息 2022年15期
        關(guān)鍵詞:數(shù)據(jù)庫用戶功能

        梁育誠

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

        0 引言

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

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

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

        1 需求分析

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

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

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

        2 設(shè)計思路

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

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

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

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

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

        3 窗體設(shè)計

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

        4 開發(fā)

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

        主要用到以下幾個模塊代碼(僅列出部分核心代碼,非完整代碼):

        4.1 核心方法介紹

        CreateObject("Notes.NotesSession"):獲取當(dāng)前Note登錄的Session對象;GetDatabase("數(shù)據(jù)庫地址","names.nsf"):進入通信錄數(shù)據(jù)庫;Search():方法搜索發(fā)件人地址;GetFirstDocument():獲取第一條搜索結(jié)果;GetFirstItem(字段名):獲取指定字段;GetDatabase(服務(wù)器,數(shù)據(jù)庫):獲取數(shù)據(jù)庫;GetLastDocument():獲取搜索結(jié)果中的最后一個文檔;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") '進入通信錄;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) '進入其郵箱;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ā)件時間;

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

        4.5 交互優(yōu)化

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

        5 測試

        開發(fā)完成后進行測試,順利運行成功(圖3)。

        6 結(jié)語

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

        猜你喜歡
        數(shù)據(jù)庫用戶功能
        也談詩的“功能”
        中華詩詞(2022年6期)2022-12-31 06:41:24
        關(guān)于非首都功能疏解的幾點思考
        數(shù)據(jù)庫
        財經(jīng)(2017年2期)2017-03-10 14:35:35
        關(guān)注用戶
        商用汽車(2016年11期)2016-12-19 01:20:16
        關(guān)注用戶
        商用汽車(2016年6期)2016-06-29 09:18:54
        數(shù)據(jù)庫
        財經(jīng)(2016年15期)2016-06-03 07:38:02
        關(guān)注用戶
        商用汽車(2016年4期)2016-05-09 01:23:12
        數(shù)據(jù)庫
        財經(jīng)(2016年3期)2016-03-07 07:44:46
        數(shù)據(jù)庫
        財經(jīng)(2016年6期)2016-02-24 07:41:51
        如何獲取一億海外用戶
        国产精品18久久久久久不卡中国 | 国产精品香蕉在线观看| 久久久久久一级毛片免费无遮挡| 国产精品一区二区三区女同| 亚洲一区二区在线观看网址| 无码国模国产在线观看| 国产一级毛片卡| 日本一级二级三级在线| 国产亚洲一区二区在线观看| 亚洲综合久久精品无码色欲| 亚洲VA中文字幕无码毛片春药| 少妇又紧又色又爽又刺| 精品无码av无码专区| 无套内射蜜桃小视频| 国产精品系列亚洲第一| 久久成人永久婷婷99精品| 国内精品久久久久影院薰衣草 | 亚洲无人区一码二码国产内射 | 欧美怡春院一区二区三区| 国精无码欧精品亚洲一区| 日本香蕉久久一区二区视频| 国产精品麻豆一区二区三区| 久久伊人精品一区二区三区 | 免费黄网站久久成人精品| 九一精品少妇一区二区三区 | 国产精品自产拍在线观看中文| 草青青视频手机免费观看| 久久久久人妻精品一区三寸| 狠狠躁夜夜躁无码中文字幕| 青青草一级视频在线观看| 婷婷色国产精品视频二区| 国产人妻人伦精品1国产盗摄| 欧美日韩一线| 久久伊人精品色婷婷国产| 亚洲精品无码久久久影院相关影片| 免费a级毛片在线观看| 中文亚洲第一av一区二区| 久久人人爽av亚洲精品| 欧美成人精品第一区二区三区| 亚洲福利第一页在线观看| 国产午夜视频在线观看免费|