图一图二
二、邮件发送程序
小叮当:添加好我们所需要的控件之后,就开始定制邮件的发送程序吧。这个邮件发送程序的基本处理过程是:根据用户输入信息组成邮件,然后使用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中加入一个Command Button控件,将其Caption属性和名称属性分别设置为“发送”和“Send”。
所有的控件添加完毕之后应该如图3所示。
小蘑菇:还挺像这么回事的呢,接着应该填写代码了吧。
小叮当:是呀,下面就是代码部分的内容:
1、将下列代码加入Form1的Form_Load事件:
Private Sub Form_Load()
MAPISession1.SignOn /运行程序之后进行邮箱登录操作
End Sub
2、将下列代码加入Form1的Form_Unload事件:
Private Sub Form_Unload(CANcel As Integer)
MAPISession1.SignOff /退出程序时候进行退出邮箱操作
End Sub 3、将下列代码加入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
这样一个电子邮件发送部分就制作完成了,运行程序之后只要填写好邮件的收件人、主题和内容后,按下“发送”命令按钮,邮件就已经成功地发往目的地了(如图4所示)。图4
小蘑菇:真的发送出去了,不过这是不是你的障眼法呢?我要收到这封信才相信!
小叮当:对我还不相信?好吧,下面再制作一个邮件接收程序来收取这封信件。
三、邮件接收程序
小叮当:邮件接收程序比邮件发送程序要复杂一些,这个程序首先需要使用MAPI消息控件的Fetch方法读取邮件,这个过程将把用户收件箱中所有未读邮件全部装入MAPI消息控件中。接着,检查MAPI消息控件的MsgCount属性以确定通过Fetch方法读取的邮件的总数,然后可以通过设置MAPI消息控件的MsgIndex属性来指定具体需要处理哪一封邮件。需要说明的是,MsgIndex属性值的计数是从0开始的,也就是说,第一封邮件的索引号是0,第二封邮件的索引号是1,依次类推。具体步骤如下: 1、新建一个VB项目,将缺省窗体Form1的Caption属性设置为“接收邮件”。
2、在Form1中加入一个MAPI会话控件MAPISession1和一个MAPI消息控件MAPIMessages1。
3、在Form1中加入三个Label控件和一个TextBox控件,将三个标签控件的名称属性分别设置为“lblMsgDateReceived”、“lblMsgOrigDisplayName”和“lblMsgSubject”,将TextBox控件的名称属性设置为“txtMsgNoteText”,并将标签控件的Caption属性和文本框控件的Text属性的内容清空。这四个控件将分别用于显示邮件的日期、发件人、主题和内容。
4、将txtMsgNoteText控件的LOCked属性和Multiline属性设置为“True”,ScrollBars属性设置为“2-Vertical”。
5、在Form1中再加入四个Label控件用于标注上述四个控件,将它们的Caption属性分别设置为“日期”、“发件人”、“主题”和“内容”。
6、在Form1中加入一个Label控件,将其名称属性设置为“lblMsgCount”,Caption属性设置为“第 0 封邮件,总计 0 封邮件”。这个控件用于显示接收的邮件总数以及当前正在处理第几封邮件。
7、在Form1中加入三个Command Button控件,将它们的名称属性分别设置为“cmdPrevious”、“cmdNext”和“cmdClose”,Caption属性分别设置为“上一封”、“下一封”和“关闭”。
小蘑菇:那么具体的程序代码呢?
小叮当:又着急了不是?我还会骗你吗?下面就是具体的程序代码:
1、编写一个子程序FetchNewMail:
Public Sub FetchNewMail()
MAPIMessages1.FetchUnreadOnly = True
MAPIMessages1.Fetch /Fetch命令将信件抓到系统存贮器的inbuffer中
End Sub
2、编写一个子程序DisplayMessage:
Public Sub DisplayMessage()
lblMsgCount.Caption = "第 " & Ltrim(Str(MAPIMessages1.MsgIndex + 1)) & " 封邮件,总计 " & Ltrim(Str(MAPIMessages1.MsgCount)) & " 封邮件" /由MsgCount知道信件数量,再用MsgIndex设置要看 哪一封信件的内容、标题
lblMsgDateReceived.Caption = MAPIMessages1.MsgDateReceived /收取信件的日期
txtMsgNoteText.Text = MAPIMessages1.MsgNoteText /收取信件的内容