文档介绍：7天ＶＢ实例教程
第一天、使用ＶB收发电子邮件ﻫ
小叮当:我说小蘑菇呀,既然你已经学****过VＢ的基础知识,也做过一些简单的程序，那么我也就不浪费口水教你认识界面、了解控件和学****语法了。不如我来教教你怎么样制作出一些切实可用的程序，这样既能够加深对ＶＢ的认识,还可以让你拥有十足的成就感呢!
ﻫ 小蘑菇:好呀,那做一些什么程序呢？ﻫﻫ 小叮当:当然不会像我哥哥当年那样简单至极的程序,而是一些具有实用性的程序，也可以做一个小游戏之类的,你看怎么样？ ﻫ 小蘑菇:好的,不过今天别教我做游戏,不然明天就没有心思学了。
ﻫ 小叮当:这个我自然知道,那我们就开始动手制作一个收发电子邮件的程序吧。ﻫﻫ 小蘑菇：收发电子邮件?这个会不会很难呢?ﻫﻫ 小叮当:正所谓会者不难，难者不会,有我这位名师指点,你还怕什么呢？开始动手吧!ﻫﻫ 一、准备工作ﻫﻫ 小叮当:在VB中编写电子邮件程序需要通过调用微软公司的MＡPI(Ｍessaｇiｎg Appliｃaｔion Pｒogramming Iｎｔeｒface,消息应用程序编程接口),这需要借助两个实现电子邮件收发功能的核心控件:MAＰI会话控件和MAPI消息控件。MAPI会话控件用于建立和控制一个Miｃroｓofｔ Maiｌ会话,MＡPI消息控件用于创建和收发邮件消息。此外，Ｗindoｗs系统中必须要有遵从MAPI的邮件系统,比如Eｘcｈangｅ、Ouｔloｏk等软件,而还要进行一番设置，确保邮件系统可以正常使用。ﻫﻫ 小蘑菇：呵呵,没关系,我用的就是Oｕｔlooｋ，正好符合要求。不过你说的MAPI控件在哪里找呢？ ﻫ 小叮当:在ＶＢ中就有现成的,不过程序没有直接放置在工具箱里,需要我们自己将MAPI控件加入ＶＢ工具箱。首先直接在ＶB左边的控件栏中右击鼠标，并在弹出菜单中选择“部件”命令,这时可以激活部件设置窗口，在其中的“控件”列表框中选取“Micｒosｏft MＡＰＩ Ｃoｎtrｏｌs”一项(如图１所示),接着按下“确定”按钮之后可以发现工具箱中将多出了两个图标，这就是MＡＰI会话控件和MＡPＩ消息控件的图标（如图2所示）。
图一图二
二、邮件发送程序ﻫﻫ 小叮当:添加好我们所需要的控件之后,就开始定制邮件的发送程序吧。这个邮件发送程序的基本处理过程是:根据用户输入信息组成邮件，然后使用MAPI消息控件的Sｅｎd方法将邮件发出。具体的方法按照下述步骤完成：ﻫﻫ 1、新建一个VB项目,并将缺省窗体Fｏｒm1的Cａption属性设置为“发送邮件”。 2、在Ｆorｍ１中加入一个MＡPＩ会话控件MAPISeｓsiｏn1和一个MAPI消息控件ＭAPIMessａges1。ﻫﻫ 3、在Foｒm1中加入三个TexｔBｏｘ控件，将它们的名称属性分别设置为“txtＳｅndTo”、“ｔxｔSubｊｅct”和“txtMesｓａｇe”，另外还要将txtMessａge的Multiline属性设置为“Tｒue”。这三个TeｘｔBｏx控件将分别用于填写邮件的收件人地址、邮件主题和邮件正文。ﻫﻫ 4、在Ｆoｒｍ1中加入三个Lａｂel控件,将它们的Caｐtiｏn属性分别设置为“收件人”、“主题”和“内容”，并将它们放在合适的位置用以标注相应的TextBoｘ控件。ﻫﻫ 5、在Ｆoｒm1中加入一个Ｃommanｄ Buｔｔoｎ控件，将其Captioｎ属性和名称属性分别设置为“发送”和“Send”。ﻫﻫ 所有的控件添加完毕之后应该如图3所示。
图三
小蘑菇:还挺像这么回事的呢,接着应该填写代码了吧。
ﻫ 小叮当:是呀,下面就是代码部分的内容：ﻫﻫ 1、将下列代码加入Ｆorm1的Fｏrｍ＿Loaｄ事件:ﻫﻫＰriｖate Sｕb Ｆorｍ_Loaｄ()ﻫ Sub ﻫﻫ 2、将下列代码加入Foｒm１的Fｏrm_Ｕnloａd事件:ﻫﻫＰｒivatｅ Ｓuｂ Foｒｍ_Uｎload(Canｃel As Iｎtegeｒ)ﻫ ／退出程序时候进行退出邮箱操作ﻫEnｄ Sub
3、将下列代码加入cｍdSｅnd的Cｌicｋ事件：ﻫﻫPrｉｖaｔe Sub cmｄSenｄ＿Clicｋ()
Ｗith MAPIMessageｓ１ﻫ .ＭsgIndex ＝ －１ﻫ ．ReｃipDisｐlayＮａme = /收信人地址ﻫ ．MsgSubject = txｔＳuｂjｅｃt．Texｔ /邮件主题
.ＭｓgＮoteTｅxt = txtMeｓｓage．Ｔｅｘｔ /邮件正文ﻫ .SessｉｏｎID = MAP