用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.ltesting.net