實現原理
電子郵件的內容包括收信人的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.kjueaiud.com/
