用VB编写收发电子邮件程序

来源：Yesky 作者：出处：巧巧读书 2006-03-14 进入讨论组

　　10、将下列代码加入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

　　在填写完邮件的收件人、主题和内容后，按"发送"命令按钮，如果没有出现运行时错误提示，那么就表明邮件已经成功地发往目的地了，否则，请检查填写的收件人地址是否准确无误以及系统中运行的消息系统工作是否正常。

　　邮件接收程序

　　邮件接收程序比邮件发送程序稍微复杂一些。首先需要使用MAPI消息控件的Fetch方法读取邮件，这个过程将把用户收件箱中所有未读邮件全部装入MAPI消息控件中。然后，检查MAPI消息控件的MsgCount属性以确定通过Fetch方法读取的邮件的总数。接着，可以通过设置MAPI消息控件的MsgIndex属性来指定具体需要处理哪一封邮件。需要说明的是，MsgIndex属性值的计数是从0开始的，也就是说，第一封邮件的索引号是0，第二封邮件的索引号是1，依次类推。编程步骤如下：
　　1、新建一个VB项目。
　　2、将缺省窗体Form1的Caption属性设置为"接收邮件"。

　　3、将MAPI控件加入VB工具框。

　　4、在Form1中加入一个MAPI会话控件MAPISession1和一个MAPI消息控件MAPIMessages1。

　　5、在Form1中加入三个标签控件和一个文本框控件，将三个标签控件的Name属性分别设置为lblMsgDateReceived、lblMsgOrigDisplayName、lblMsgSubject，将文本框控件的Name属性设置为txtMsgNoteText，并将标签控件的Caption属性和文本框控件的Text属性的内容清空。这四个控件将分别用于显示邮件的日期、发件人、主题和内容。

　　6、将txtMsgNoteText控件的Locked属性和Multiline属性设置为True，ScrollBars属性设置为2 - Vertical。

　　7、在Form1中再加入四个标签控件用于标注上述四个控件，将它们的Caption属性分别设置为"日期"、"发件人"、"主题"、"内容"。

　　8、在Form1中加入一个标签控件，将其Name属性设置为lblMsgCount，Caption属性设置为"第 0 封邮件，总计 0 封邮件"。该控件用于显示接收的邮件总数以及当前正在处理第几封邮件。

　　9、在Form1中加入三个命令按钮控件，将它们的Name属性分别设置为cmdPrevious、cmdNext、cmdClose，Caption属性分别设置为"上一封"、"下一封"、"关闭"。巧巧读书:http://www.qqread.com/vb/d462884100.html