摘 要：分析Lotus郵件系統(tǒng)發(fā)送郵件中存在的不足，討論Visual Basic編程實現(xiàn)業(yè)務(wù)軟件自動調(diào)用lotus郵件系統(tǒng)發(fā)送郵件的方法，并給出了不用登陸Lotus郵件系統(tǒng)而直接快速發(fā)送Lotus郵件的實現(xiàn)代碼。

關(guān)鍵詞：Visual Basic；Lotus；代碼；郵件；程序；發(fā)送

中圖分類號：TP393.098

Lotus Notes郵件系統(tǒng)由世界著名的IBM公司開發(fā)，采用了最新的Domino郵件技術(shù)，具有友好用戶界面、可編輯性強、支持二次開發(fā)、郵件安全性高等諸多優(yōu)點，廣泛應(yīng)用于企事業(yè)單位，是氣象部門日常辦公及重要資料如災(zāi)情直報、預(yù)警信號及時上傳的重要保障，但是Lotus郵件系統(tǒng)卻有占用內(nèi)存空間大、運行中操作過快就會導(dǎo)致程序異常終止退出、業(yè)務(wù)人員每次都需要打開Lotus郵件系統(tǒng)輸入用戶名和密碼才能發(fā)送郵件等缺點。

Visual Basic 6.0是所有編程工具中最易學(xué)的一種，它提供的大量可視化控件，可方便用戶快速的開發(fā)出滿足需求的軟件，而Lotus郵件的數(shù)據(jù)庫是安全性較高的文檔型數(shù)據(jù)庫，它不同于微軟的Office Access數(shù)據(jù)庫，也不同于Sql、Oracle等大型關(guān)系型數(shù)據(jù)庫，因為它的數(shù)據(jù)庫數(shù)據(jù)不是可視化的，那么，怎么通過代碼實現(xiàn)對Lotus郵件系統(tǒng)的操縱來優(yōu)化業(yè)務(wù)、讓其更加人性化是本文分析的重點，本文將在文中給出相關(guān)功能的實現(xiàn)代碼，以期提高工作效率。

1 設(shè)計思路

Visual Basic雖然可以通過Widows傳統(tǒng)的OLE特征中的對象和方法去訪問調(diào)用打開Lotus客戶端（雖然能實現(xiàn)對Lotus程序的調(diào)用，但是卻沒有為計算機內(nèi)存減輕負擔(dān)，更沒有提高發(fā)送速率，這和從計算機上直接運行Lotus郵件系統(tǒng)沒有本質(zhì)區(qū)別），目前寧夏全區(qū)氣象系統(tǒng)使用的是Lotus郵件系統(tǒng)的最新版Notes R8.02 客戶端，它提供了一個強大的后臺處理類Notus Session，這為使用代碼訪問NotesDatabase，Notes視圖等對象提供了一個平臺，即我們不用打開文檔型數(shù)據(jù)庫，但可以通過這個類去調(diào)用一些程序處理函數(shù)，對數(shù)據(jù)庫中的數(shù)據(jù)進行視圖定位、全文檢索，數(shù)據(jù)存取等。同時后臺處理類的獨立運行功能使得我們在開發(fā)時可不必調(diào)用整個Lotus客戶端就能實現(xiàn)郵件發(fā)送的功能，可大大減輕計算機內(nèi)存占用率。

2 程序?qū)崿F(xiàn)

首先必須確保你的計算機上安裝了Notes R8.02 客戶端，并且配置完整能夠收發(fā)郵件，在使用Visual Basic開發(fā)時必須先引用Lotus Domino Objects和Lotus Notes Automation Classess。

針對Lotus每次登陸時都要輸入用戶名和密碼的問題，我們采用一次設(shè)定永久登陸的方法，在VB中建立模塊1，建立一個文件讀取函數(shù)和一個文件寫入函數(shù)，然后在Lotus用戶名和密碼設(shè)置窗口：

這樣在應(yīng)用程序中，只要每次從ini中自動讀取本站Lotus用戶名和密碼，就實現(xiàn)了一次設(shè)置永久登陸了。

先在通用代碼窗口里定義全局變量用于存儲從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）

以下函數(shù)模塊為實可發(fā)送多個附件給多個收件人

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

'定義郵件數(shù)據(jù)庫

Dim username As String

'定義本站用戶notes名稱

'Dim pwd As String

Dim dbasename As String

'定義本站用戶郵件數(shù)據(jù)庫

Dim newmail As New NotesDocument

'定義郵件中的文檔\"

Dim txtobj As New NotesRichTextItem

'定義文本對象

Dim mysession As New NotesSession

'定義notes會話

Dim fjdx As New NotesEmbeddedObject

'定義附件對象

'創(chuàng)建notes會話

Set mysession = CreateObject（\"lotus.notessession\"）

Call mysession.Initialize（pwd）

dbasename = \"mail＼\" user \".nsf\"

'讀取本站的Lotus郵箱名 如永寧.nsf

Set dbase = mysession.GetDatabase（\"beyc_s/寧夏/cma\"， dbasename）

'在notes.ini文件中可找到你自己的服務(wù)器

If dbase.IsOpen Then

Else

End If

'創(chuàng)建新郵件

Set newmail = dbase.CreateDocument

Call newmail.ReplaceItemValue（\"form\"， \"memo\"）

'設(shè)定接受者，jieshou為一數(shù)組，只給一個人時可設(shè)為一變量

Call newmail.ReplaceItemValue（\"sendto\"， recipient）

'郵件標題

Call newmail.ReplaceItemValue（\"biaoti\"， biaoti）

'郵件正文內(nèi)容

Set zhengwen = newmail.CreateRichTextItem（\"zhengwen\"）

Call zhengwen.AppendText（zhengwentext）

'添加附件

Call zhengwen.AddNewLine（6）

For n = 0 To （c - 1）

Call zhengwen.Fjdxect（1454， \"\"， fj（n）， \"fj\"）

Next n

'保存多個附件

newmail.SaveMessageOnSend = True

'發(fā)送郵件

Call newmail.ReplaceItemValue（\"posteddate\"， Now（））

'獲取郵件當(dāng)前發(fā)送時的系統(tǒng)時間

Call newmail.Send（False）

'釋放對象

Set dbase = Nothing

Set newmail = Nothing

Set txtobj = Nothing

Set mysession = Nothing

Set fjdx = Nothing

End Sub

利用以下模塊實現(xiàn)郵件的發(fā)送功能

Dim mybiaoti As String '標題

Dim myfj（） As Variant

'附件文件名，可發(fā)送多個附件

Dim jieshou（） As Variant

'郵件接收者，可多個

Dim myzhengwentext As String

Dim mysaveit As Boolean

Dim I， d， w， p， S As Integer

Dim ss As String

Dim myshou（） As String

Dim fujian（） As String

myshou = Split（Text1.Text， vbCrLf）

fujian = Split（Text4.Text， vbCrLf）

mybiaoti = Trim（Text2.Text）

k = UBound（myshou）

ReDim jieshou（0 To d - 1） '確定有d-1個接收者

For I = 0 To （d - 1）

jieshou（I） = myshou（I）

Next I

p = UBound（fujian）

'獲得用戶選擇的附件個數(shù)

c = p

ReDim myfj（0 To p - 1）

For S = 0 To （p - 1）

myfj（S） = fujian（S）

Next S

Call famail（mybiaoti， myfj（）， jieshou（）， myzhengwentext， mysaveit）

'調(diào)用famail函數(shù)發(fā)送郵件

以上代碼經(jīng)多次驗證均能實現(xiàn)將郵件成功發(fā)送給指定收件人。

3 結(jié)束語

采用VB編程實現(xiàn)將Lotus郵件系統(tǒng)與縣級鄉(xiāng)鎮(zhèn)精細化預(yù)報系統(tǒng)進行掛接，既實現(xiàn)了資料的及時上傳，同時又充分利用VB實現(xiàn)了界面的簡潔美觀和Lotus系統(tǒng)的優(yōu)化，程序運行中只是調(diào)用了Lotus的后臺處理類，同時不需要每次輸入用戶名和密碼登陸Lotus郵件系統(tǒng)發(fā)送郵件 ，大大節(jié)省了內(nèi)存空間，提高了郵件發(fā)送速率，進而提高了工作效率。

參考文獻：

[1]崔曉陽.用Treeview控件實現(xiàn)樹形管理信息系統(tǒng)[J].農(nóng)業(yè)網(wǎng)絡(luò)信息，2007（01）：135-136.

[2]羅琳，陳怡之，陳斌.Notes編程疑難詳解[M].北京：人民郵電出版社，2000.

作者簡介：鈕海全（1960.12-），男，山西人，科長，大氣探測工程師。

作者單位：寧夏銀川市氣象局，銀川 750000；寧夏賀蘭縣氣象局，銀川 750200