在VB、VFP应用系统中收发邮件 |
E-mail是Internet/Intranet网上通信的最主要的方式之一,充分利用E-mail 的功能可以极大地提高企业的工作效率,减轻用户的工作负担。Windows 95中提供了一个名为Exchange的电子邮件客户程序,它包含了收件箱、发件箱、收发消息、消息优先级等功能,广泛支持超文本消息、收发传真和Internet邮件等内容,可以在LAN、Microsoft Fax、远程邮件、Internet等多种软件环境中工作。在VFP、VB开发的应用系统中结合Exchange的邮件服务功能,可以使您的应用系统功能更强大、服务更完善、使用更方便。下面介绍VB、VFP的MAPI控件以及在VB、VFP应用系统中使用这些控件收发E-mail的方法。 一.MAPI控件概述 MAPI(通信应用程序接口)控件,即MSMAPI32.OCX,包括两个OLE控件:MAPISession(MAPI工作期)控件和MAPIMessage(MAPI消息)控件。MAPISession控件的功能是负责建立会话、取消会话的一个MAPI工作期。MAPIMessage控件则提供了发送、接收等所有对电子邮件进行处理的功能。 MAPISession控件用来注册一个新工作期和注销当前工作期。注册时,首先 用MAPISession控件的SignOn方法建立与E-mail服务器的会话连接,显示完注册对话框后,SessionID属性包含了刚注册的MAPISession的句柄。此句柄最终必须传递给MAPIMessage控件,在结束当前MAPISession工作期之前,必须先注销该工作期。然后再用MAPIMessage控件的SessionID属性同有效的会话联系起来,执行一系列消息系统函数,实现收发邮件的功能。 二.MAPI控件的主要属性 (1)MAPISession控件的属性: Action属性:当MAPISession控件被激活时,该属性将决定执行什么操作。 LogonUI属性:该属性指定是否显示注册对话框。当其值为“真”时,则出 现一个对话框提示新用户输入用户名和口令;当其值为“假”时,则不显示对话框。 SessionID属性:返回当前的消息会话句柄。指定SignOn方法时,可以设置该属性的值。使用MAPIMessage控件处理消息时,需要使用此会话句柄,其缺省值为0。 SignOn方法:将用户登录到UserName和Password属性所指定的帐户中,并将会话句柄存储到属性SessionID中。 SignOff方法:结束消息会话,从UserName和Password属性所指定的帐户中 退出。 (2)MAPIMessage控件的属性: Action属性:当MAPIMessage控件被激活时,该属性决定将执行什么操作。 SessionID属性:存储由MAPISession控件的SessionID属性返回的消息会话句柄。 FetchSorted属性:在用收件箱中的消息填充消息集合时,指定或返回消息的排序。当其值为“真”时,按接收消息的顺序向消息集合添加消息;当其值为“假”时,由用户收件箱中的排序添加消息。 FetchUnreadOnly属性:决定是否将消息集合中的消息限定为未读消息。当其值为“真”时,只向消息集合添加FetchMsgType属性指定的未读消息;当其值为“假”时,添加收件箱中适当类型的全部消息。 MsgCount属性:用于在消息工作期间返回存在于消息设置中的消息的总数。 MsgIndex属性:指定当前索引消息的索引编号。在索引改变时,所有消息的其它属性也随之改变,以反映索引消息的特征。索引号的范围是从-1到MsgCount-1。 MsgOrigDisplayName属性:返回当前索引消息的原始发件人的名字。 MsgOrigAddress属性:返回当前索引消息的原始发件人的邮件地址。 RecipDisplayName、RecipAddress、MsgSubject、MsgNoteText属性:分别指定当前索引的收件人姓名、收件人的邮件地址、主题、文本行,构成一条完整的消息。 Send方法:发送一条消息。它带有一个参数nDialog,当nDialog为“真”时,显示Exchange邮件系统的操作界面,由用户输入消息的各个部分,并将消息提交邮件服务器传送;当nDialog为“假”时,则不显示相应的操作界面,而将消息提交给邮件服务器。 Reply方法:响应一个消息。将当前索引的消息复制到构成缓冲区中,并将RE:加入标题行的开始,同时将MsgIndex属性设置为-1。 Delete方法:删除一个消息、收件人或附件。 Compose方法:构成一条消息。 Fetch方法:由收件箱中选择的消息创建一个消息集合。
三.应用实例 ★应用实例一:用VB 5.0的MAPI控件收发邮件。 1. 插入MAPI控件的方法: 在VB 5.0主菜单的“工程”项中选择“部件(0)”,在弹出的控件栏中,双击“Microsoft MAPI Control 5.0”项,按“确定”键返回。那么,在窗体工具箱中就有了上述控件。 2.建立含有如下控件的窗体: 控件 NAME CAPTION 主窗体 frmMail 用VB 5.0的MAPI控件收发邮件 MAPISession控件 MailSess MAPIMessage控件 MailMess 命令按钮 cmdNewMail 发件箱 命令按钮 cmdGetMail 收件箱 命令按钮 cmdExit 退出 子窗体 frmNewMail 发件箱 标签 label1 收件人: 标签 label2 主题: 文本框 TEXT1 '输入收件人的电子邮件地址 文本框 TEXT2 '输入文本的主题 文本框 TEXT3 '输入文本内容 命令按钮 MailSend 发送邮件 子窗体 frmGetMail 收件箱 标签 label1 发件人: 标签 label2 主题: 文本框 TEXT1 '发件人的电子邮件地址 文本框 TEXT2 '发来的文本主题 文本框 TEXT3 '发来的文本内容 命令按钮 cmdPrevious 向前 命令按钮 cmdNext 向后
输入主窗体“发件箱”按钮的程序代码: Private Sub cmdNewMail_Click() frmNewMail.Show End Sub
输入主窗体“收件箱”按钮的程序代码: Private Sub cmdGetMail_Click() frmGetMail.Show End Sub
输入主窗体“退出”按钮的程序代码: Private Sub cmdExit_Click() frmMail.MailSess.SignOff '断开连接 End End Sub
输入frmNewMail子窗体“发送邮件”按钮的程序代码: Private Sub MailSend_Click() frmMail.MailSess.SignOn '建立连接 frmMail.MailMess.SessionID = frmMail.MailSess.SessionID frmMail.MailMess.MsgIndex = -1 frmMail.MailMess.RecipDisplayName = Text1.Text frmMail.MailMess.MsgSubject = Text2.Text frmMail.MailMess.MsgNoteText = Text3.Text frmMail.MailMess.Send (False) frmMail.MailSess.SignOff End Sub
输入frmGetMail子窗体装入的程序代码: Private Sub Form_Load() Dim mailIndex, mailCounts As Integer frmMail.MailSess.SignOn frmMail.MailMess.SessionID = frmMail.MailSess.SessionID frmMail.MailMess.FetchSorted = True frmMail.MailMess.FetchUnreadOnly = True frmMail.MailMess.Action = 1 mailCounts = frmMail.MailMess.MsgCount If mailCounts = 0 Then Text3.Text = "收件箱中没有邮件!" frmGetMail.cmdPrevious.Enabled = False frmGetMail.cmdNext.Enabled = False Else frmGetMail.MailMess.MsgIndex = 0 frmGetMail.Text1.Text = frmMail.MailMess.MsgOrigAddress frmGetMail.Text2.Text = frmMail.MailMess.MsgSubject frmGetMail.Text3.Text = frmMail.MailMess.MsgNoteText End If End Sub
输入frmGetMail子窗体“向前”按钮的程序代码: Private Sub cmdPrevious_Click() mailIndex = frmGetMail.MailMess.MsgIndex frmGetMail.MailMess.MsgIndex = mailIndex - 1 frmGetMail.Text1.Text = frmMail.MailMess.MsgOrigAddress frmGetMail.Text2.Text = frmMail.MailMess.MsgSubject frmGetMail.Text3.Text = frmMail.MailMess.MsgNoteText If mailIndex = 0 Then frmGetMail.cmdPrevious.Enabled = False End If End Sub
输入frmGetMail子窗体“向后”按钮的程序代码: Private Sub cmdNext_Click() mailCounts = frmGetMail.MailMess.MsgCount - 1 mailIndex = frmGetMail.MailMess.MsgIndex frmGetMail.MailMess.MsgIndex = mailIndex + 1 frmGetMail.Text1.Text = frmMail.MailMess.MsgOrigAddress frmGetMail.Text2.Text = frmMail.MailMess.MsgSubject frmGetMail.Text3.Text = frmMail.MailMess.MsgNoteText If mailIndex = mailCounts Then frmGetMail.cmdNext.Enabled = False End If End Sub
★应用实例二:用VFP 5.0的MAPI控件收发邮件。 1. 插入MAPI控件的方法: 在VFP 5.0主菜单的“工具”项中选择“选项”,在弹出的控件栏中,双击“Microsoft MAPI Control 5.0”项,那么,在窗体工具箱中就有了上述控件。 2.建立含有如下控件的窗体: 控件 NAME CAPTION 窗体 frmMail 用VFP 5.0的MAPI控件收发邮件 MAPISession控件 MailSess MAPIMessage控件 MailMess 命令按钮 command1 发件箱 命令按钮 command2 收件箱 命令按钮 command3 退出
输入“发件箱”按钮单击事件的程序代码: thisform.MailSess.SignOn thisform.MailMess.SessionID = thisform.MailSess.SessionID thisform.MailMess.MsgIndex = -1 thisform.MailMess.RecipDisplayName = "zjport@public.jsinfo.com.cn" thisform.MailMess.MsgSubject = "信件" thisform.MailMess.MsgNoteText = "请给我发邮件!" thisform.MailMess.Send (.F.) thisform.MailSess.SignOff
输入“收件箱”按钮单击事件的程序代码: thisform.MailSess.SignOn thisform.MailMess.SessionID = thisform.MailSess.SessionID thisform.MailMess.FetchSorted = .T. thisform.MailMess.FetchUnreadOnly = .T. thisform.MailMess.Action = 1 xx='' for mm=0 to thisform.MailMess.MsgCount-1 thisform.MailMess.MsgIndex = mm xx=xx+thisform.MailMess.MsgNoteText+chr(13)+chr(10) endf thisform.MailSess.SignOff
输入“退出”按钮的程序代码: thisform.MailSess.SignOff release thisform 上述程序只是给出用VB 5.0和VFP 5.0开发E-mail程序的简单案例,用户可以结合自己的实际情况,将上述程序修改、完善后,加入到自己的应用系统中去,使应用系统的功能更强大。 以上程序在同创P/200、中文WINDOWS 95、WINDOWS NT 4.0、Visual Foxpro 5.0、Visual Basic 5.0软、硬件环境中运行并通过。 |
在VB、VFP应用系统中收发邮件
最新推荐文章于 2020-12-11 11:04:07 发布