实例说明
在本实例中，我们将制作一个能够发送电子邮件的应用程序。程序运行后，输入收件人的地址、主题和内容后点击"发送"即可。程序运行结果如图83-1所示。
图83-1 运行结果
技术要点
l 使用MAPI控件
l 建立MAPI会话
l 发送邮件
实现过程
■ 新建项目
打开Visual Studio.NET，选择"新建项目"，在项目类型窗口中选择"Visual Basic项目"，在模板窗口中选择"Windows应用程序"，在名称域中输入"SendMail"，然后选择保存路径。单击"确认"。
■ 添加控件
向窗体上添加三个Label控件，用于说明之用；三个TextBox控件分别用于显示收件人的地址、邮件的主题和内容。两个Button控件。最后添加"Microsoft MAPI Session Control"和"Microsoft MAPI Message Control"（此控件需要额外添加）。
■ 设置属性
对窗体及控件进行属性设置，我们在表83-1中仅列出主要的属性。其余属性如控件的Text属性只需设置为和界面一致。
表84-1 窗体及控件的属性值
窗体/控件 属性 值
Form1 Text 发送电子邮件
TextBox3 ScrollBar Vertical
MultiLine True
WordWrap True
Public Sub New()
MyBase.New()
MAPISession1.SignOn()
'此调用是 Windows 窗体设计器所必需的。
InitializeComponent()
End Sub
'发送邮件
Private Sub btnSend_Click(ByVal eventSender As System.Object,ByVal eventArgs As System.EventArgs) Handles btnSend.Click
With MAPIMessages1
.MsgIndex = -1
.RecipDisplayName = Text1.Text
.MsgSubject = Text2.Text
.MsgNoteText = Text3.Text
.SessionID = MAPISession1.SessionID
.Send(True)
End With
End Sub
Private Sub Btncancel_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnCancel.Click
'取消发送邮件
MAPISession1.SignOff()
End Sub
■ 运行程序
单击菜单"调试|启动"或单击 图标运行程序。
小结
需要说明的是：本程序运行时，必须设置好OutLook Express中的Smtp服务方可适用本程序。否则会出现不可预知的错误。
使用MAPI控件时，一般都先使用MAPISession控件建立MAPI会话，然后使用MAPIMessage控件来进行有关邮件的各种操作。最后，使用MAPISession控件来退出MAPI会话。