当前位置:首页 > 工业控制 > 《机电信息》
[导读]摘 要:介绍了Lotus Notes内 自带的部分组件以及Domino接口 的应用 , 阐述了如何使用Domino接口结合VB6工 具来开发一个邮件扩展工具 , 实现批量查询是否已读、批量修改、批量撤回等便捷功能 。

引言

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

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

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

1 需求分析

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

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

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

2 设计思路

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

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

图1 邮件属性

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

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

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

3 窗体设计

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

4 开发

首先在VisualBasic 6中引用Lotus Domino 0bjects 接口组件(图2) 。

主要用到以下几个模块代码(仅列出部分核心代码 ,非完整代码) :

4. 1 核心方法介绍

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

4.2 初始化

Dim aDC As 0bject;DimMaildocAs 0bject;Dim sessionAs 0bject;DimMaildbAs 0bject;DimviewAs 0bject;Dim a() As string;Dim arr() As string;setsession= Create0bject("Notes.Notessession")

4.3 检索邮件

setMaildb = session.GetDatabase ("数据库地址"""names.nsf") 1 进 入 通 信 录 ;If Not Maildb.Is0pen Then Maildb.0pen;fajian=Text1.Text;setaDC= Maildb.search("owner=""" & fajian & """ & type=""Person"""" Nothing"

图2 引用组件

0) ! 在 通 信 录 中 搜 索 该 地 址 :set Maildoc = aDC. GetFirstDocument () ! 取得 该 条 文 档 :set rtiteml =Maildoc.GetFirstItem ("Mailserver") !取得其所属服务器sername= rtiteml.Text

setrtitem2 = Maildoc.GetFirstItem("MailFile") !取得其 数 据 库 地 址 :dbname = rtitem2.Text:set Maildb =session.GetDatabase (sername, dbname) !进入其邮箱:IfNotMaildb.Is0penThenMaildb.0pen:IfCombol.Text ="MessageID" Then:docid = Left(Trim (Replace(Replace(Replace(Text2.Text, """", ""), Chr(l3), ""), Chr(l0), "")),49) !输入邮件ID:Keyword = "@Contains(SMessageID:"""& docid & """)":EndIf:setaDC = Maildb.search (Keyword, Nothing, 0) !搜索该邮件:setMaildoc= aDC.GetLastDocument() !获取该邮件:

set rtitem3 = Maildoc.GetFirstItem ("sendTo") !获取收件人:set rtitem4 = Maildoc.GetFirstItem("CopyTo")"获取抄送人:

setsubjectl=Maildoc.GetFirstItem ("subject") !获取标题:

setposttime=Maildoc.GetFirstItem("PostedDate") !获

取发件时间:

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

setMaildb=session . GetDatabase ( "JMEP02MAD/servers/Geph", "names.nsf"): set aDC= Maildb.search ("owner=""" & a(i) & """ & type=""Person""", Nothing, 0)!查找收件人

setMaildoc= aDC.GetFirstDocument() :

setrtiteml = Maildoc.GetFirstItem ("Mailserver"):sername = rtiteml.Text:set rtitem2 = Maildoc.GetFirstItem ("MailFile") : dbname = rtitem2.Text: setMaildb = session.GetDatabase(sername, dbname)

0n Error Resume Next

CallMaildoc.RemovePermanently(True)

4.5 交互优化

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

5 测试

开发完成后进行测试 ,顺利运行成功(图3)。

本站声明: 本文章由作者或相关机构授权发布,目的在于传递更多信息,并不代表本站赞同其观点,本站亦不保证或承诺内容真实性等。需要转载请联系该专栏作者,如若文章内容侵犯您的权益,请及时联系本站删除。
换一批
延伸阅读

9月16日,“面向大众的神经技术”国际论坛召开。在4个多小时的时间里,来自中国、美国、德国、荷兰和新加坡的5位知名科学家与全球近52万名在线观众分享了他们对脑机接口、神经技术等前沿科学研究的观点和展望,并进行了问答互动。

关键字: 脑机接口 神经技术

2021年6月15日,清华大学计算机系举行“华智冰”成果发布会,宣布“华智冰”正式“入学”。与一般的虚拟数字人不同,“华智冰”拥有持续的学习能力,能够逐渐“长大”。

关键字: 元宇宙 虚拟数字人

小度是百度旗下的AI语音助手。依托AI技术,小都衍生出了丰富的智能硬件产品,包括智能屏幕、智能音箱、智能耳机、巨屏电视、字典笔、学习平板等产品。9月21日,百度正式发布新一代小型配送机器人。这款产品是由百度Brain与小...

关键字: 小度配送机器人 AI语音助手

电池仓位于设备背面下半部分, 仅当使用 5 号电池供电时需要操作电池仓,锂电池供电的设备无需操作电池仓。默认情况下,电池仓盖处于锁定状态无法直接打开,在需要安装或者更换电池时,应将水平拨动开关推至解锁侧,在电池安装完成后...

关键字: 振弦采集仪 振弦传感器 工程监测 工程设备

据路透社报导,知情人士透漏,就在美国“芯片法案”正式完成立法的之后,韩国存储芯片厂商SK海力士将在美国建设一座先进的芯片封装工厂,并将于2023 年第一季左右破土动工。

关键字: 芯片 封装 SK海力士

目前,半导体行业已经进入后摩尔时代,制程工艺很难像过去30年那样,芯片上的晶体管数量每两年就可以翻倍,近些年,制程节点的演进速度明显放缓,且晶体管数量的增加也越来越艰难。要进一步延续摩尔定律,接口IP的将发挥越来越重要的...

关键字: 半导体 Chiplet 接口IP

2022年9月21日,中国上海讯——国产EDA行业的领军企业芯和半导体近日证实,开发先进封装技术的基板设计初创公司 Chipletz,已采用芯和半导体的Metis电磁场仿真EDA,用于 Chipletz 即将发布的 Sm...

关键字: Chipletz 芯和半导体 Metis

随着美国对华限制可用于GAAFET的EDA 设计工具,凸显EDA 在芯片设计关键角色。由于目前EDA 产业高度集中,前三大厂商以美商为主。预计台积电2nm制程也将采用美商针对GAAFET 架构的EDA软件。另据台媒报道,...

关键字: 联发科 鸿海 EDA

数十年中,摩尔定律演进推动着芯片制造工艺和设计架构发生了翻天覆地的变化,随着晶体管尺寸逼近物理极限,未来先进设计及工艺向着延续摩尔定律(More Moore)、超越摩尔定律(More than Moore)和新型器件(B...

关键字: EDA 国产EDA 自研芯片

在2021年,国产EDA工具在国内市场就占据了12%的份额,而随着华大九天近期的最新突破,意味着国产自研芯片的突破口即将被打开,真正100%自主生产的主流很快就会到来。日前,华大九天宣布了一则好消息,就是这家企业的模拟全...

关键字: 华大九天 EDA 28nm

编辑精选

技术子站

关闭