编程实现Lotus邮件系统的优化.docVIP

编程实现Lotus邮件系统的优化 　　摘 要：分析Lotus邮件系统发送邮件中存在的不足，讨论Visual Basic编程实现业务软件自动调用lotus邮件系统发送邮件的方法，并给出了不用登陆Lotus邮件系统而直接快速发送Lotus邮件的实现代码。 　　关键词：Visual Basic；Lotus；代码；邮件；程序；发送 　　中图分类号：TP393.098 　　Lotus Notes邮件系统由世界著名的IBM公司开发，采用了最新的Domino邮件技术，具有友好用户界面、可编辑性强、支持二次开发、邮件安全性高等诸多优点，广泛应用于企事业单位，是气象部门日常办公及重要资料如灾情直报、预警信号及时上传的重要保障，但是Lotus邮件系统却有占用内存空间大、运行中操作过快就会导致程序异常终止退出、业务人员每次都需要打开Lotus邮件系统输入用户名和密码才能发送邮件等缺点。 　　Visual Basic 6.0是所有编程工具中最易学的一种，它提供的大量可视化控件，可方便用户快速的开发出满足需求的软件，而Lotus邮件的数据库是安全性较高的文档型数据库，它不同于微软的Office Access数据库，也不同于Sql、Oracle等大型关系型数据库，因为它的数据库数据不是可视化的，那么，怎么通过代码实现对Lotus邮件系统的操纵来优化业务、让其更加人性化是本文分析的重点，本文将在文中给出相关功能的实现代码，以期提高工作效率。 　　1 设计思路 　　Visual Basic虽然可以通过Widows传统的OLE特征中的对象和方法去访问调用打开Lotus客户端（虽然能实现对Lotus程序的调用，但是却没有为计算机内存减轻负担，更没有提高发送速率，这和从计算机上直接运行Lotus邮件系统没有本质区别），目前宁夏全区气象系统使用的是Lotus邮件系统的最新版Notes R8.02 客户端，它提供了一个强大的后台处理类Notus Session，这为使用代码访问NotesDatabase，Notes视图等对象提供了一个平台，即我们不用打开文档型数据库，但可以通过这个类去调用一些程序处理函数，对数据库中的数据进行视图定位、全文检索，数据存取等。同时后台处理类的独立运行功能使得我们在开发时可不必调用整个Lotus客户端就能实现邮件发送的功能，可大大减轻计算机内存占用率。 　　2 程序实现 　　首先必须确保你的计算机上安装了Notes R8.02 客户端，并且配置完整能够收发邮件，在使用Visual Basic开发时必须先引用Lotus Domino Objects和Lotus Notes Automation Classess。 　　针对Lotus每次登陆时都要输入用户名和密码的问题，我们采用一次设定永久登陆的方法，在VB中建立模块1，建立一个文件读取函数和一个文件写入函数，然后在Lotus用户名和密码设置窗口： 　　这样在应用程序中，只要每次从ini中自动读取本站Lotus用户名和密码，就实现了一次设置永久登陆了。 　　先在通用代码窗口里定义全局变量用于存储从ini文件中自动读取的本站Lotus用户名和密码，代码如下： 　　Public pwd， user As String 　　pwd = ReadString（App.Path ＼ini＼ lotus用户名密码.ini， lotus， pwd， 100） 　　user = ReadString（App.Path ＼ini＼ lotus用户名密码.ini， lotus， user， 100） 　　以下函数模块为实可发送多个附件给多个收件人 　　Public Sub famail（biaoti As String， fj（） As Variant， recipient（） As Variant， zhengwentext As String， saveit As Boolean） 　　Dim zhengwen 　　Dim n As Integer 　　Dim duqu As String 　　Dim dbase As New NotesDatabase 　　定义邮件数据库 　　Dim username As String 　　定义本站用户notes名称 　　Dim pwd As String 　　Dim dbasename As String 　　定义本站用户邮件数据库 　　Dim newmail As New NotesDocument 　　定义邮件中的文档 　　Dim txtobj As New NotesRichTextItem 　　定义文本对象 　　Dim mysession As New NotesSession 　　定