用VB實現電子郵件的自動回復

VB中有兩個很有用、但不經常用到的控件，這就是郵件會話控件和郵件消息控件。使用這兩個控件可以完成郵件的收發，適當地使用它們可以為應用程序的開發帶來很大的方便。

實現原理

電子郵件的內容包括收信人的E-mail地址、主題、信件內容等。VB的Microsoft MAPI Controls 6.0控件中的郵件會話控件（MAPISession）和郵件消息控件（MAPIMessages）可用來實現對默認的郵件管理器Outlook Express進行監控和管理，利用這兩個控件對新郵件收信人的E-mail地址、主題、信件內容進行相關的控制處理，就能實現E-mail的自動回復了。程序的設計思路是，首先檢查郵件管理器Outlook Express中有多少封新郵件，然后逐個進行回復。并通過打開相關的郵件，就要標識為已讀，從而避免重復回復。下面是這兩個控件中與電子郵件的發送和接收有關的屬性:


MAPISession.SignOff（SignOn）

’關閉（打開）郵件會話

MAPISession.RecipDisplayName

’發信人的E-mail地址

MAPISession.MsgSubject

’電子郵件的主題

MAPISession.MsgNoteText

’電子郵件中的正文

MAPIMessages.SessionID

’郵件標識號

MAPIMessages.AttachmentPathName

’要發送的電子郵件的附件名

MAPISession.Send ’發送

MAPIMessages.FetchUnreadOnly = True

’將消息集合中的消息限定為可讀（當其值為False時表示不可讀）

窗口界面的設計

1. 添加8個標簽。其中第一至第四個標簽的Caption屬性依次設置為“時間”、“發信人”、“主題”和“內容”，其他的四個標簽的Caption屬性設置為空，并將Autosize的屬性設置為True。這四個標簽是用來顯示郵件日期、發信人、主題和新郵件的數目。

2. 添加一個文本框，并將其Text屬性清空，它是用來顯示信件內容的。

3. 添加兩個命令按鈕，將Caption屬性分別設置為“全部回復”和“退出”。

4. 在“工具”菜單中選“部件”，在“控件”選項卡中選“Microsoft MAPI Controls 6.0”。然后點“應用”，并將MAPIMessages和MAPISession兩個控件添加到窗體中。窗口界面如下圖所示:  

將下面的代碼添加到代碼窗口中，運行程序，點“全部回復”，就可以實現對所有未讀郵件的回復了。

’本程序在Windows 98、VB 6.0、Outlook Express 5.0～5.5下調試通過。

Dim wz As Integer

Dim i As Integer

Dim SendText As String

Dim TT1 As String

Dim MapiUserName As String

’定義一個用來回復(發送郵件)的函數

Public Function MapiSend(t1, t2, SendText)

MAPIMessages1.MsgIndex = -1

MAPIMessages1.RecipDisplayName = t1

MAPIMessages1.MsgSubject = t2

MAPIMessages1.MsgNoteText=SendText

MAPIMessages1.SessionID=MAPISession1

.SessionID

MAPIMessages1.Send

End Function

’定義一個用來顯示新郵件的子程序

Public Sub MapiDisplay()

Label5.Caption = MAPIMessages1

.MsgDateReceived ’郵件日期

Label6.Caption = MAPIMessages1

.MsgOrigDisplayName ’郵件發信人

Label7.Caption = MAPIMessages1

.MsgSubject ’郵件主題

Text1.Text = MAPIMessages1

.MsgNoteText ’ 郵件正文

Label8.Caption =“總計”+ LTrim(Str(MAPIMessages1.MsgCount)) +“封新郵件”

End Sub

Private Sub Form_Load()

MAPISession1.SignOn

MAPIMessages1.SessionID=

MAPISession1.SessionID

MAPIMessages1.FetchUnreadOnly = True

’MapiDisplay

End Sub

’自動回復

Private Sub Command1_Click()

If MAPIMessages1.MsgCount = 0 Then

MsgBox “沒有新郵件需要回復”, , “郵件消息”

Exit Sub

End If

For i = 1 To MAPIMessages1.MsgCount

’獲得新郵件數目

MAPIMessages1.MsgIndex = i - 1

’MAPIMessages1.MsgIndex + 1

MapiDisplay

wz = InStr(MAPIMessages1

.MsgOrigDisplayName，“@”)

’獲得用戶名的字數

If wz = 0 Then ’獲得用戶名

MapiUserName = MAPIMessages1

.MsgOrigDisplayName

ElseIf wz > 0 Then

MapiUserName = Left(MAPIMessages1.MsgOrigDisplayName, (wz - 1))

End If

tt1 = Chr(13) + Chr(10)

SendText = MapiUserName +“，您好！”+ tt1+“您的《”+MAPIMessages1.MsgSubject +“》的來信收到! ” + tt1 + “湖南省衡陽經濟貿易學校 劉友生” + tt1 + Date$ + Time$

’回信的內容

Call MapiSend(MAPIMessages1

.MsgOrigDisplayName,

MAPIMessages1.MsgSubject, SendText)

Next

pprompt=“已經回復了”+Str(MAPIMessages1

.MsgCount) +“封郵件”

MsgBox pprompt, , “郵件回復成功！”

End Sub

Private Sub Command2_Click()

MAPISession1.SignOff

End

End Sub

Private Sub Form_Load()

MAPISession1.SignOn

MAPIMessages1.SessionID=

MAPISession1.SessionID

MAPIMessages1.FetchUnreadOnly = True MAPIMessages1.Fetch

’MapiDisplay

End Sub

原文轉自：http://www.anti-gravitydesign.com