文档介绍:用VB收发电子邮件发送和接收电子邮件,对于某些执行特殊任务的应用程序而言,是一个十分有用的功能。例如,一个监视网络服务器资源使用情况的工具软件,当它发现服务器的资源使用已经接近事先设定的临界状态时,便可以向系统管理员发送一封告警的电子邮件,从而使系统管理员能够及时地采取措施,以避免重大事故的出现。在VB中,应用程序可以通过调用MAPI,实现收发电子邮件的功能。编制具有收发电子邮件功能的VB程序,,:MAPI会话控件和MAPI消息控件。MAPI会话控件用于建立和控制一个MicrosoftMail会话,MAPI消息控件用于创建和收发邮件消息。此外,程序必须运行在采用遵从MAPI的消息系统(如:MicrosoftExchange、MicrosoftMail、Outlook等)的环境中。在开始编程之前,首先需要将MAPI控件加入VB工具箱。具体操作是:在VB菜单栏中选择Tools菜单项中的CustomControls命令,调出"CustomControls"对话框,在其中的"AvailableControls"列表框中选中"MicrosoftMAPIControls"表项,然后按"OK"命令按钮退出该对话框。此后,工具箱中将新添两个如图1所示的图标,这就是MAPI会话控件和MAPI消息控件的图标。@***@;图1MAPI工具图标@@下面,笔者将以两个简单的VB程序为例,分别介绍发送邮件和接收邮件的程序编制方法。一、邮件发送程序邮件发送程序的基本处理过程是:根据用户输入信息组成邮件,然后使用MAPI消息控件的Send方法将邮件发出。编程步骤如下:。"发送邮件"。。。,将它们的Name属性分别设置为txtSendTo、txtSubject、txtMessage,并将txtMessage的Multiline属性设置为True。这三个文本框控件将分别用于填写邮件的收件人、主题和内容。,将它们的Caption属性分别设置为"收件人"、"主题"和"内容",并将它们放在合适的位置用以标注相应的文本框控件。,将其Caption属性和Name属性分别设置为"发送"和"cmdSend"。:PrivateSubForm_Load():PrivateSubForm_Unload(CancelAsInteger):PrivateSubcmdSend_Click()=-===="邮件发送完毕!",?"发送邮件"EndSub程序运行后如图2所示。@***@;图2发送邮件@@二、邮件接收程序邮件接收程序比邮件发送程序稍微复杂一些。首先需要使用MAPI消息控件的Fetch方法读取邮件,这个过程将把用户收件箱中所有未读邮件全部装入MAPI消息控件中。然后,检查MAPI消息控件的MsgCount属性以确定通过Fetch方法读取的邮件的总数。接着,可以通过设置MAPI消息控件的MsgIndex属性来指定具体需要处理哪一封邮件。需要说明的是,MsgIndex属性值的计数是从0开始的,也就是说,第一封邮件的索引号是0,第二封邮件的索引号是1,依次类推。编程步骤如下:。"接收邮件"。。。,将三个标签控件的Name属性分别设置为lblMsgDateReceived、lblMsgOrigDisp