用VB编写收发电子邮件程序

    发送和接收电子邮件，对于某些执行特殊任务的应用程序而言，是一个十分有用的功能。例如，一个监视网络服务器资源使用情况的工具软件，如果它具有自动发送电子邮件的功能，那么当它发现服务器的资源使用已经接近事先设定的临界状态时，便可以向系统管理员发送一封告警的电子邮件，从而使系统管理员能够及时地采取措施，以避免重大事故的出现。在Visual Basic中，应用程序可以通过调用微软公司的MAPI（Messaging Application Programming Interface，消息应用程序编程接口），实现收发电子邮件的功能。笔者将在本文中结合简单实例，向大家介绍在VB程序中实现电子邮件收发功能的编程方法。

　　 编制具有收发电子邮件功能的VB程序，必须使用Visual Basic 4.0以上的版本，因为只有4.0以上的Visual Basic才带有两个实现电子邮件收发功能的核心控件：MAPI会话控件和MAPI消息控件。MAPI会话控件用于建立和控制一个Microsoft Mail会话，MAPI消息控件用于创建和收发邮件消息。此外，程序必须运行在采用遵从MAPI的消息系统（如：Microsoft Exchange、Microsoft Mail、Outlook等）的环境中。

　　在开始编程之前，首先需要将MAPI控件加入VB工具箱。具体操作是：在VB菜单栏中选择Tools菜单项中的Custom Controls命令，调出"Custom Controls"对话框，在其中的"Available Controls"列表框中选中"Microsoft MAPI Controls"表项，然后按"OK"命令按钮退出该对话框。此后，工具箱中将新添两个图标，这就是MAPI会话控件和MAPI消息控件的图标。

　　下面，笔者将以两个简单的VB程序为例，分别介绍发送邮件和接收邮件的程序编制方法。

　　 邮件发送程序

　 　邮件发送程序的基本处理过程是：根据用户输入信息组成邮件，然后使用MAPI消息控件的Send方法将邮件发出。编程步骤如下：

　　1、新建一个VB项目。

　　2、将缺省窗体Form1的Caption属性设置为"发送邮件"。

　　3、将MAPI控件加入VB工具框。

　　4、在Form1中加入一个MAPI会话控件MAPISession1和一个MAPI消息控件MAPIMessages1。

　　5、在Form1中加入三个文本框控件，将它们的Name属性分别设置为txtSendTo、txtSubject、txtMessage，并将txtMessage的Multiline属性设置为True。这三个文本框控件将分别用于填写邮件的收件人、主题和内容。

　　6、在Form1中加入三个标签控件，将它们的Caption属性分别设置为"收件人"、"主题"和"内容"，并将它们放在合适的位置用以标注相应的文本框控件。

　　7、在Form1中加入一个命令按钮控件，将其Caption属性和Name属性分别设置为"发送"和"cmdSend"。

　　8、将下列代码加入Form1的Form_Load事件：

　　Private Sub Form_Load()
　　MAPISession1.SignOn
　　End Sub  

　　9、将下列代码加入Form1的Form_Unload事件：

　　Private Sub Form_Unload(Cancel As Integer)
　　MAPISession1.SignOff
　　End Sub  

10、将下列代码加入cmdSend的Click事件：

　　Private Sub cmdSend_Click()
　　With MAPIMessages1
　　.MsgIndex = -1
　　.RecipDisplayName = txtSendTo.Text
　　.MsgSubject = txtSubject.Text
　　.MsgNoteText = txtMessage.Text
　　.SessionID = MAPISession1.SessionID
　　.Send
　　End With
　　MsgBox "邮件发送完毕！", , "发送邮件"
　　End Sub  

　　在填写完邮件的收件人、主题和内容后，按"发送"命令按钮，如果没有出现运行时错误提示，那么就表明邮件已经成功地发往目的地了，否则，请检查填写的收件人地址是否准