控件天VB实例教程VB收发电子邮件媒体播放器

天VB实例教程VB收发电子邮件媒体播放器

7天VB实例教程

第一天、使用收发电子邮件 小叮当我说小蘑菇呀既然你已经学习过VB的基础知识,也做过一些简单的程序那么我也就不浪费口水教你认识界面、了解控件和学习语法了。不如我来教教你怎么样制作出一些切实可用的程序这样既能够加深对VB的认识,还可以让你拥有十足的成就感呢! 小蘑菇好呀,那做一些什么程序呢 

小叮当 当然不会像我哥哥当年那样简单至极的程序而是一些具有实用性的程序,也可以做一个小游戏之类的,你看怎么样 小蘑菇好的,不过今天别教我做游戏不然明天就没有心思学了。

小叮当这个我自然知道那我们就开始动手制作一个收发电子邮件的程序吧。

 小蘑菇:收发电子邮件?这个会不会很难呢 

小叮当正所谓会者不难难者不会有我这位名师指点你还怕什么呢?开始动手吧 

一、准备工作

小叮当在B中编写电子邮件程序需要通过调用微软公司的MPIMessaging Application Progrming Interfac ,消息应用程序编程接口 ,这需要借助两个实现电子邮件收发功能的核心控件:

天VB实例教程VB收发电子邮件媒体播放器

API会话控件和MAP消息控件。MPI会话控件用于建立和控制一个crosoft il会话P消息控件用于创建和收发邮件消息。此外Winow系统中必须要有遵从MA 的邮件系统比如E hag 、O utlo 等软件而还要进行一番设置,确保邮件系统可以正常使用。

 小蘑菇呵呵没关系我用的就是O utl k正好符合要求.不过你说的MAPI控件在哪里找呢?

小叮当:在VB中就有现成的,不过程序没有直接放置在工具箱里需要我们自己将MAI控件加入V工具箱。首先直接在VB左边的控件栏中右击鼠标并在弹出菜单中选择“部件"命令,这时可以激活部件设置窗口在其中的“控件”列表框中选取“Mi  soft MA 

Cntro ls"一项如图1所示 ,接着按下“确定”按钮之后可以发现工具箱中将多出了两个图标这就是MAPI会话控件和MPI消息控件的图标(如图2所示 .

天VB实例教程VB收发电子邮件媒体播放器

图一图

二

二、邮件发送程序

 小叮当:添加好我们所需要的控件之后就开始定制邮件的发送程序吧。这个邮件发送程序的基本处理过程是:根据用户输入信息组成邮件然后使用MAPI消息控件的Sn方法将邮件发出。具体的方法按照下述步骤完成:

 1、新建一个B项目,并将缺省窗体F o rm的ap tio n属性设置为“发送邮件”。 、在Form中加入一个MAI会话控件MAPISss on1和一个PI消息控件MAPIMessges 1.

 3、在o1中加入三个T extBo控件,将它们的名称属性分别设置为“tx e To”、 “ttSubjec  "和“txtMe s age”,另外还要将txts s age的Mltil n属性设置为“T e"。这三个TexBox控件将分别用于填写邮件的收件人地址、邮件主题和邮件正文.

天VB实例教程VB收发电子邮件媒体播放器

4、在For中加入三个bel控件,将它们的Cption属性分别设置为“收件人”、 “主题"和“内容”并将它们放在合适的位置用以标注相应的xBox控件.

5、在Form1中加入一个Comand u ton控件将其C aption属性和名称属性分别设置为“发送”和“S end”。

所有的控件添加完毕之后应该如图3所示。

图三

小蘑菇还挺像这么回事的呢接着应该填写代码了吧。

 小叮当是呀,下面就是代码部分的内容

 、将下列代码加入Frm1的FormLoa事件 r  at

Sub Form_Load )

MAIess on  SignOn/运行程序之后进行邮箱登录操作nd Sub

天VB实例教程VB收发电子邮件媒体播放器

2、将下列代码加入Form的F or_Unlo a事件

Priat Sub For_Uload  cl As Itger)

MAISession .Sgnff /退出程序时候进行退出邮箱操作

E   b

3、将下列代码加入cmdSed的Cl  ck事件 

Priate Sb cdSend_  ick  

WitMAPIMes s ags 1

.Mgndex=1 .Rec ii p layNae xtendTo Txt 收信人地址

MgSubject=  tSbject.Tx /邮件主题

.Ms gNoteT ext=txtMes sge T ext /邮件正文 .Sss ionID=MAPIS  sin1.e s on  发送程序和邮件工具之间建立的任务数 。 Send End Wit MgBox ”邮件发送完毕!  , , "发送邮件” 发送成功显示信息框

Ed Sub

 这样一个电子邮件发送部分就制作完成了运行程序之后只要填写好邮件的收件人、主题和内容后,按下“发送”命令按钮邮件就已经

天VB实例教程VB收发电子邮件媒体播放器

成功地发往目的地了(如图4所示 。

小蘑菇真的发送出去了,不过这是不是你的障眼法呢?我要收到这封信才相信  小叮当:对我还不相信好吧,下面再制作一个邮件接收程序来收取这封信件。  三、邮件接收程序 小叮当邮件接收程序比邮件发送程序要复杂一些这个程序首先需要使用MAPI消息控件的th方法读取邮件这个过程将把用户收件箱中所有未读邮件全部装入MAPI消息控件中.接着检查MPI消息控件的Msgount属性以确定通过Fetch方法读取的邮件的总数然后可以通过设置MAP I消息控件的Ms gInd ex属性来指定具体需要处理哪一封邮件。需要说明的是Ms gnex属性值的计数是从0开始的也就是说第一封邮件的索引号是0,第二封邮件的索引号是1依次类推。具体步骤如下:

1、新建一个V项目,将缺省窗体Fom的Ca  o属性设置为“接收邮件"。

天VB实例教程VB收发电子邮件媒体播放器

 2、在Form1中加入一个MAPI会话控件MISe s o 和一个MAPI消息控件MA essa s1. 、在Form1中加入三个Lab el控件和一个Txto控件将三个标签控件的名称属性分别设置为“lblM DatRceied"、 “llMsgOig  spyame”和“  lMgubj et”,将ex x控件的名称属性设置为“txMs gNoteT e  ”,并将标签控件的C aption属性和文本框控件的T ex属性的内容清空。这四个控件将分别用于显示邮件的日期、发件人、主题和内容。 

、将txtMso teTxt控件的Loc ked属性和Mult iline属性设置为“rue” S c ro l  ars属性设置为“2V tic a ”。

 5、在orm1中再加入四个Lab 控件用于标注上述四个控件将它们的Cp tio n属性分别设置为“日期”、 “发件人”、 “主题”和“内容”. 6、在Form1中加入一个bl控件将其名称属性设置为“lblgCout"Cation属性设置为“第封邮件总计 0

封邮件”。这个控件用于显示接收的邮件总数以及当前正在处理第几封邮件。 

7、在orm1中加入三个Comman But on控件将它们的名称属性分别设置为“c mdP revious”、 “mdet”和“c mdC lo s e”,C ap ion属性分别设置为“上一封"、 “下一封”和“关闭"。 

小蘑菇:那么具体的程序代码呢?

小叮当:又着急了不是我还会骗你吗下面就是具体的程序代

天VB实例教程VB收发电子邮件媒体播放器

码

1、编写一个子程序FtchewMail

P ub l   ub ethNMa l()

MAP IMes s ages 1.F  c hUn adOn  True

AP IMes ages  。F etc h th命令将信件抓到系统存贮器的nbu  r中

Ed Sub 

2、编写一个子程序Dis p lye s a  

ublic Su D  laye sag()

b lMs gC ont.C ap tio n="第 ”L rim(S rM e ssages 1Msgnex + 1))&”封邮件总计 ”& Ltr mS tr(MP Ies age 1Ms gout )”封邮件由MsCu 知道信件数量再用Ms gI ex设置要看

哪一封信件的内容、标题lblMsateRec eivd.Capti  APIes sges 1。sgDateRec e ved 收取信件的日期txtMgNo eet.T ex =MAIMes sges  。gt

Txt /收取信件的内容lb lMs gOrigDi  l Nam 。 C aption =MAPMessge 1.MgOrigD sp layNae /发送邮件的姓名 lb lMsSubjet.C aptio

天VB实例教程VB收发电子邮件媒体播放器n=MPIMe sages 1.MsSubject /邮件主题

nd Sub

3、将下列代码加入For1的FormLa事件:Privte Sub Form_Lad()

MISe sion .SignOn

MAP IM  ages   e s io nID = AP I S   io n .ess o nID

FtcNewM a il /调用F eth子程序

 p ayMess e 调用D P a  sg子程序

n ub

 4、将下列代码加入c mdP revios的l  c k事件

Priat Sub mdPr ious_Click) If A Mes s ag 

1。Msgnde 0 Then

MAP IM  s age 1.Ms gInex=MP IMes s ags 1。s gndex 1 当收取信件超过封的时候通过“上一封”按钮查看前面的信件 D sp layM e s s age Els e

B e ep

Ed IfEn S 

 5、将下列代码加入cdext的C lick事件:

Privte  b cmdNext_lick  