用VB收发电子邮件.doc

文档介绍：发送和接收电子邮件,对于某些执行特殊任务的应用程序而言,是一个十分有用的功
能。例如,一个监视网络服务器资源使用情况的工具软件,当它发现服务器的资源使用已
经接近事先设定的临界状态时,便可以向系统管理员发送一封告警的电子邮件,从而使系
统管理员能够及时地采取措施,以避免重大事故的出现。在VB中,应用程序可以通过调用
MAPI,实现收发电子邮件的功能。
编制具有收发电子邮件功能的VB程序,,
的Visual Basic才带有两个实现电子邮件收发功能的核心控件:MAPI会话控件和MAPI消息
控件。MAPI会话控件用于建立和控制一个Microsoft Mail会话,MAPI消息控件用于创建和
收发邮件消息。此外,程序必须运行在采用遵从MAPI的消息系统(如:Microsoft Exchang
e、Microsoft Mail、Outlook等)的环境中。
在开始编程之前,首先需要将MAPI控件加入VB工具箱。具体操作是:在VB菜单栏中选
择Tools菜单项中的Custom Controls命令,调出"Custom Controls"对话框,在其中的"Av
ailable Controls"列表框中选中"Microsoft MAPI Controls"表项,然后按"OK"命令按钮
退出该对话框。此后,工具箱中将新添两个如图1所示的图标,这就是MAPI会话控件和MAP
I消息控件的图标。
@***@;图1 MAPI工具图标@@
下面,笔者将以两个简单的VB程序为例,分别介绍发送邮件和接收邮件的程序编制方
法。
一、邮件发送程序
邮件发送程序的基本处理过程是:根据用户输入信息组成邮件,然后使用MAPI消息控
件的Send方法将邮件发出。编程步骤如下:
1. 新建一个VB项目。
2. 将缺省窗体Form1的Caption属性设置为"发送邮件"。
3. 将MAPI控件加入VB工具框。
4. 在Form1中加入一个MAPI会话控件MAPISession1和一个MAPI消息控件MAPIMessag
es1。
5. 在Form1中加入三个文本框控件,将它们的Name属性分别设置为txtSendTo、txtS
ubject、txtMessage,并将txtMessage的Multiline属性设置为True。这三个文本框控件
将分别用于填写邮件的收件人、主题和内容。
6. 在Form1中加入三个标签控件,将它们的Caption属性分别设置为"收件人"、"主题
"和"内容",并将它们放在合适的位置用以标注相应的文本框控件。
7. 在Form1中加入一个命令按钮控件,将其Caption属性和Name属性分别设置为"发送
"和"cmdSend"。
8. 将下列代码加入Form1的Form_Load事件:
Private Sub Form_Load()

End Sub
9. 将下列代码加入Form1的Form_Unload事件:
Private Sub Form_Unload(Cancel As Integer)

End Sub
10. 将下列代码加入cmd