[VB.NET]发送电子邮件

实例说明

在本实例中，我们将制作一个能够发送电子邮件的应用程序。程序运行后，输入收件人的地址、主题和内容后点击"发送"即可。程序运行结果如图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

MessageBox.Show("邮件发送完毕！")

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会话。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!