一.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 = "[email protected]"
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软、硬件环境中运行并通过。
document.write("");
本文地址：http://com.8s8s.com/it/it6730.htm