用VB实现电子邮件的自动回复

时　间:2008-03-11 13:48:06
作　者:UMVSOFT整理   ID：16  城市：江阴
摘　要:用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) +“封

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店