首页 | 社区 | 博客 | 招聘 | 文章 | 新闻 | 下载 | 项目交易 | 网友作品 | 读书 | ACM题库 | 源码
亲,您未登录哦! 登录 | 注册

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

(加入日期: 2002-09-05 )

打印文章】【字体:

分享到:
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

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )

编程爱好者论坛

本栏最新文章