發(fā)送和接收電子郵件，對(duì)于某些執(zhí)行特殊任務(wù)的應(yīng)用程序而言，是一個(gè)十分有用的功能。例如，一個(gè)監(jiān)視網(wǎng)絡(luò)服務(wù)器資源使用情況的工具軟件，如果它具有自動(dòng)發(fā)送電子郵件的功能，那么當(dāng)它發(fā)現(xiàn)服務(wù)器的資源使用已經(jīng)接近事先設(shè)定的臨界狀態(tài)時(shí)，便可以向系統(tǒng)管理員發(fā)送一封告警的電子郵件，從而使系統(tǒng)管理員能夠及時(shí)地采取措施，以避免重大事故的出現(xiàn)。在Visual Basic中，應(yīng)用程序可以通過調(diào)用微軟公司的MAPI（Messaging Application Programming Interface，消息應(yīng)用程序編程接口），實(shí)現(xiàn)收發(fā)電子郵件的功能。筆者將在本文中結(jié)合簡單實(shí)例，向大家介紹在VB程序中實(shí)現(xiàn)電子郵件收發(fā)功能的編程方法。

　　 編制具有收發(fā)電子郵件功能的VB程序，必須使用Visual Basic 4.0以上的版本，因?yàn)橹挥?.0以上的Visual Basic才帶有兩個(gè)實(shí)現(xiàn)電子郵件收發(fā)功能的核心控件：MAPI會(huì)話控件和MAPI消息控件。MAPI會(huì)話控件用于建立和控制一個(gè)Microsoft Mail會(huì)話，MAPI消息控件用于創(chuàng)建和收發(fā)郵件消息。此外，程序必須運(yùn)行在采用遵從MAPI的消息系統(tǒng)（如：Microsoft Exchange、Microsoft Mail、Outlook等）的環(huán)境中。

　　在開始編程之前，首先需要將MAPI控件加入VB工具箱。具體操作是：在VB菜單欄中選擇Tools菜單項(xiàng)中的Custom Controls命令，調(diào)出"Custom Controls"對(duì)話框，在其中的"Available Controls"列表框中選中"Microsoft MAPI Controls"表項(xiàng)，然后按"OK"命令按鈕退出該對(duì)話框。此后，工具箱中將新添兩個(gè)圖標(biāo)，這就是MAPI會(huì)話控件和MAPI消息控件的圖標(biāo)。

　　下面，筆者將以兩個(gè)簡單的VB程序?yàn)槔�，分別介紹發(fā)送郵件和接收郵件的程序編制方法。

　　 郵件發(fā)送程序

　 　郵件發(fā)送程序的基本處理過程是：根據(jù)用戶輸入信息組成郵件，然后使用MAPI消息控件的Send方法將郵件發(fā)出。編程步驟如下：

　　1、新建一個(gè)VB項(xiàng)目。

　　2、將缺省窗體Form1的Caption屬性設(shè)置為"發(fā)送郵件"。

　　3、將MAPI控件加入VB工具框。

　　4、在Form1中加入一個(gè)MAPI會(huì)話控件MAPISession1和一個(gè)MAPI消息控件MAPIMessages1。

　　5、在Form1中加入三個(gè)文本框控件，將它們的Name屬性分別設(shè)置為txtSendTo、txtSubject、txtMessage，并將txtMessage的Multiline屬性設(shè)置為True。這三個(gè)文本框控件將分別用于填寫郵件的收件人、主題和內(nèi)容。

　　6、在Form1中加入三個(gè)標(biāo)簽控件，將它們的Caption屬性分別設(shè)置為"收件人"、"主題"和"內(nèi)容"，并將它們放在合適的位置用以標(biāo)注相應(yīng)的文本框控件。

　　7、在Form1中加入一個(gè)命令按鈕控件，將其Caption屬性和Name屬性分別設(shè)置為"發(fā)送"和"cmdSend"。

　　8、將下列代碼加入Form1的Form_Load事件：

　　Private Sub Form_Load()
　　MAPISession1.SignOn
　　End Sub  

　　9、將下列代碼加入Form1的Form_Unload事件：

　　Private Sub Form_Unload(Cancel As Integer)
　　MAPISession1.SignOff
　　End Sub  

10、將下列代碼加入cmdSend的Click事件：

　　Private Sub cmdSend_Click()
　　With MAPIMessages1
　　.MsgIndex = -1
　　.RecipDisplayName = txtSendTo.Text
　　.MsgSubject = txtSubject.Text
　　.MsgNoteText = txtMessage.Text
　　.SessionID = MAPISession1.SessionID
　　.Send
　　End With
　　MsgBox "郵件發(fā)送完畢！", , "發(fā)送郵件"
　　End Sub  

　　在填寫完郵件的收件人、主題和內(nèi)容后，按"發(fā)送"命令按鈕，如果沒有出現(xiàn)運(yùn)行時(shí)錯(cuò)誤提示，那么就表明郵件已經(jīng)成功地發(fā)往目的地了，否則，請(qǐng)檢查填寫的收件人地址是否準(zhǔn)確無誤以及系統(tǒng)中運(yùn)行的消息系統(tǒng)工作是否正常。

　　郵件接收程序

　　郵件接收程序比郵件發(fā)送程序稍微復(fù)雜一些。首先需要使用MAPI消息控件的Fetch方法讀取郵件，這個(gè)過程將把用戶收件箱中所有未讀郵件全部裝入MAPI消息控件中。然后，檢查MAPI消息控件的MsgCount屬性以確定通過Fetch方法讀取的郵件的總數(shù)。接著，可以通過設(shè)置MAPI消息控件的MsgIndex屬性來指定具體需要處理哪一封郵件。需要說明的是，MsgIndex屬性值的計(jì)數(shù)是從0開始的，也就是說，第一封郵件的索引號(hào)是0，第二封郵件的索引號(hào)是1，依次類推。編程步驟如下：
　　1、新建一個(gè)VB項(xiàng)目。
　　2、將缺省窗體Form1的Caption屬性設(shè)置為"接收郵件"。

　　3、將MAPI控件加入VB工具框。

　　4、在Form1中加入一個(gè)MAPI會(huì)話控件MAPISession1和一個(gè)MAPI消息控件MAPIMessages1。

　　5、在Form1中加入三個(gè)標(biāo)簽控件和一個(gè)文本框控件，將三個(gè)標(biāo)簽控件的Name屬性分別設(shè)置為lblMsgDateReceived、lblMsgOrigDisplayName、lblMsgSubject，將文本框控件的Name屬性設(shè)置為txtMsgNoteText，并將標(biāo)簽控件的Caption屬性和文本框控件的Text屬性的內(nèi)容清空。這四個(gè)控件將分別用于顯示郵件的日期、發(fā)件人、主題和內(nèi)容。

　　6、將txtMsgNoteText控件的Locked屬性和Multiline屬性設(shè)置為True，ScrollBars屬性設(shè)置為2 - Vertical。

　　7、在Form1中再加入四個(gè)標(biāo)簽控件用于標(biāo)注上述四個(gè)控件，將它們的Caption屬性分別設(shè)置為"日期"、"發(fā)件人"、"主題"、"內(nèi)容"。

　　8、在Form1中加入一個(gè)標(biāo)簽控件，將其Name屬性設(shè)置為lblMsgCount，Caption屬性設(shè)置為"第 0 封郵件，總計(jì) 0 封郵件"。該控件用于顯示接收的郵件總數(shù)以及當(dāng)前正在處理第幾封郵件。

　　9、在Form1中加入三個(gè)命令按鈕控件，將它們的Name屬性分別設(shè)置為cmdPrevious、cmdNext、cmdClose，Caption屬性分別設(shè)置為"上一封"、"下一封"、"關(guān)閉"。



　　10、編寫一個(gè)窗體級(jí)子例程FetchNewMail：

　　Public Sub FetchNewMail()
　　MAPIMessages1.FetchUnreadOnly = True
　　MAPIMessages1.Fetch
　　End Sub  

　　11、編寫一個(gè)窗體級(jí)子例程DisplayMessage：

　　Public Sub DisplayMessage()
　　lblMsgCount.Caption = "第 " & _
　　LTrim(Str(MAPIMessages1.MsgIndex + 1)) & " 封郵件，總計(jì) " & _ 　　
　　LTrim(Str(MAPIMessages1.MsgCount)) & " 封郵件"
　　lblMsgDateReceived.Caption = MAPIMessages1.MsgDateReceived
　　txtMsgNoteText.Text = MAPIMessages1.MsgNoteText
　　lblMsgOrigDisplayName.Caption = MAPIMessages1.MsgOrigDisplayName 　　
　　lblMsgSubject.Caption = MAPIMessages1.MsgSubject
　　End Sub  

　　12、將下列代碼加入Form1的Form_Load事件：

　　Private Sub Form_Load()
　　MAPISession1.SignOn
　　MAPIMessages1.SessionID = MAPISession1.SessionID
　　FetchNewMail
　　DisplayMessage
　　End Sub  

　　13、將下列代碼加入cmdPrevious的Click事件：

　　Private Sub cmdPrevious_Click()
　　If MAPIMessages1.MsgIndex > 0 Then
　　MAPIMessages1.MsgIndex = MAPIMessages1.MsgIndex - 1
　　DisplayMessage
　　Else
　　Beep
　　End If
　　End Sub  




　　14、將下列代碼加入cmdNext的Click事件：

　　Private Sub cmdNext_Click()
　　If MAPIMessages1.MsgIndex < MAPIMessages1.MsgCount - 1 Then
　　MAPIMessages1.MsgIndex = MAPIMessages1.MsgIndex + 1
　　DisplayMessage
　　Else
　　Beep
　　End If
　　End Sub  

　　15、將下列代碼加入cmdClose的Click事件：

　　Private Sub cmdClose_Click()
　　Unload Me
　　End Sub  

　　在窗體加載過程中，窗體Load事件中的代碼會(huì)讀取新郵件，如果有新郵件，就顯示第一個(gè)新郵件。如果有多個(gè)新郵件，則可以使用"上一封"和"下一封"命令按鈕前后翻閱。

　　接收郵件

　　本例是讀取用戶收件箱中所有未讀郵件，如果要讀取收件箱中所有的郵件，那么只需在執(zhí)行Fetch方法之前，將MAPI消息控件的FetchUnreadOnly屬性設(shè)置為False。具體接收的郵件是否已經(jīng)讀過，可以通過MsgRead屬性來判別。如果郵件的正文或附件曾經(jīng)被瀏覽過，那么該郵件就會(huì)自動(dòng)標(biāo)記為已讀，不過只瀏覽郵件的主題不會(huì)標(biāo)記該郵件已讀。

　　郵件附件

　　與處理郵件的方式一樣，MAPI也為郵件的附件提供了一個(gè)計(jì)數(shù)器和一個(gè)索引。在處理收到的郵件時(shí)，可以通過檢查AttachmentCount屬性來確定該郵件攜帶了多少個(gè)附件，然后可以通過設(shè)置AttachmentIndex屬性依次處理每一個(gè)附件。

　　AttachmentIndex的合法取值范圍為0至AttachmentIndex-1。在設(shè)置了AttachmentIndex屬性值后，可以讀取附件的下列屬性：

　　AttachmentName：當(dāng)附件是一個(gè)文件時(shí)，該屬性用于指定文件的名稱。當(dāng)附件是一個(gè)OLE對(duì)象時(shí)，該屬性用于指定對(duì)象的類型。

　　AttachmentPath：該屬性用于指定做為附件的文件的全路徑名。

　　AttchmentPosition：該屬性用于指定附件在郵件內(nèi)容部分中的位置。當(dāng)郵件收發(fā)程序顯示郵件內(nèi)容時(shí)，將使用該屬性提供的信息把附件的標(biāo)志放在合適的位置。

　　AttachmentType：該屬性用于指定附件的類型，其合法取值為三個(gè)整數(shù)型數(shù)值，在VB中分別由下列常量表示：

　　·mapData－附件是一個(gè)數(shù)據(jù)文件
　　·mapEOLE－附件是一個(gè)嵌入式OLE對(duì)象
　　·mapSOLE－附件是一個(gè)靜態(tài)OLE對(duì)象

　　發(fā)送郵件時(shí)，上述屬性的使用方法與接收郵件時(shí)相同，只不過由讀操作改為寫操作了。值得一提的是AttachmentIndex屬性，發(fā)送郵件時(shí)可以將其設(shè)置為任意值。而AttachmentCount屬性則會(huì)自動(dòng)設(shè)置為正確的值，無需人為設(shè)置。

　　小結(jié)

　　通過分析上述兩個(gè)程序的代碼，可以歸納出具有收發(fā)電子郵件功能的VB程序的基本流程如下：

　　1、使用MAPI會(huì)話控件建立一個(gè)郵件會(huì)話。

　　2、使用MAPI消息控件進(jìn)行郵件的處理工作。

　　3、再次使用MAPI會(huì)話控件釋放郵件會(huì)話。

　　由于上述兩個(gè)VB程序只是簡單的示例，因而略去了一些與本文主題關(guān)系不大的細(xì)節(jié)，如錯(cuò)誤處理等。在編制實(shí)用程序時(shí)，為了保證程序的可靠性，應(yīng)該考慮加入這些細(xì)節(jié)部分。