VISUAL BASIC 6 实例操作.pdf

第一天、使用VB 收发电子邮件 小叮当：在VB 中编写电子邮件程序需要通过调用微软公司的MAPI （MessagingApplication ProgrammingInterface，消息应用程序编程接口），这需要借助两个实现电子邮件收发功能的 核心控件：MAPI会话控件和MAPI消息控件。MAPI会话控件用于建立和控制一个Microsoft Mail 会话，MAPI 消息控件用于创建和收发邮件消息。此外，Windows 系统中必须要有遵从 MAPI 的邮件系统，比如Exchange、Outlook 等软件，而还要进行一番设置，确保邮件系统 可以正常使用。 小蘑菇：呵呵，没关系，我用的就是Outlook，正好符合要求。不过你说的MAPI 控件 在哪里找呢？ 小叮当：在VB 中就有现成的，不过程序没有直接放置在工具箱里，需要我们自己将MAPI 控件加入VB工具箱。首先直接在VB左边的控件栏中右击鼠标，并在弹出菜单中选择 “部件” 命令，这时可以激活部件设置窗口，在其中的 “控件”列表框中选取 “Microsoft MAPI Controls”一项 （如图1所示），接着按下 “确定”按钮之后可以发现工具箱中将多出了两 个图标，这就是MAPI会话控件和MAPI消息控件的图标 （如图2所示）。 图1 图2 二、邮件发送程序 小叮当：添加好我们所需要的控件之后，就开始定制邮件的发送程序吧。这个邮件发送 程序的基本处理过程是：根据用户输入信息组成邮件，然后使用MAPI消息控件的Send方法 将邮件发出。具体的方法按照下述步骤完成： 1、新建一个VB项目，并将缺省窗体Form1的Caption属性设置为 “发送邮件”。 2 、在 Form1 中加入一个 MAPI 会话控件 MAPISession1 和一个 MAPI 消息控件 MAPIMessages1。 3、在Form1 中加入三个TextBox 控件，将它们的名称属性分别设置为“txtSendTo”、 “txtSubject”和“txtMessage”，另外还要将txtMessage 的Multiline 属性设置为“True”。这三个 TextBox 控件将分别用于填写邮件的收件人地址、邮件主题和邮件正文。 4、在Form1 中加入三个Label 控件，将它们的Caption 属性分别设置为“收件人”、“主 题”和“内容”，并将它们放在合适的位置用以标注相应的TextBox 控件。 5、在Form1 中加入一个CommandButton 控件，将其Caption 属性和名称属性分别设置 为“发送”和“Send”。 所有的控件添加完毕之后应该如图3所示。 图3 小蘑菇：还挺像这么回事的呢，接着应该填写代码了吧。 小叮当：是呀，下面就是代码部分的内容： 1、将下列代码加入Form1 的Form_Load 事件： Private Sub Form_Load() MAPISession1.SignOn /运行程序之后进行邮箱登录操作 End Sub 2、将下列代码加入Form1 的Form_Unload 事件： Private Sub Form_Unload(CancelAsInteger) MAPISession1.SignOff /退出程序时候进行退出邮箱操作 End Sub 3、将下列代码加入cmdSend 的Click 事件： Private Sub cmdSend_Click() WithMAPIMessages1 .MsgIndex -1 .RecipDisplayName txtSendTo.Text /收信人地址 .MsgSubject txtSubject.Text /邮件主题 .MsgNoteText txtMessage.Text /邮件正文 .SessionID MAPISession1.SessionID /发送程序和邮件工具之间建立的任务数 .Send EndWith MsgBox 邮件发送完毕！, , 发送邮件 /发送成功显示信息框 End Sub 这样一个电子邮件发送部分就