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

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

　　10、编写一个窗体级子例程FetchNewMail：

　　Public Sub FetchNewMail()
　　MAPIMessages1.FetchUnreadOnly = True
　　MAPIMessages1.Fetch
　　End Sub

　　11、编写一个窗体级子例程DisplayMessage：

　　Public Sub DisplayMessage()
　　lblMsgCount.Caption = "第 " & _
　　LTrim(Str(MAPIMessages1.MsgIndex + 1)) & " 封邮件，总计 " & _ 　　
　　LTrim(Str(MAPIMessages1.MsgCount)) & " 封邮件"
　　lblMsgDateReceived.Caption = MAPIMessages1.MsgDateReceived
　　txtMsgNoteText.Text = MAPIMessages1.MsgNoteText
　　lblMsgOrigDisplayName.Caption = MAPIMessages1.MsgOrigDisplayName 　　
　　lblMsgSubject.Caption = MAPIMessages1.MsgSubject
　　End Sub

　　12、将下列代码加入Form1的Form_Load事件：

　　Private Sub Form_Load()
　　MAPISession1.SignOn
　　MAPIMessages1.SessionID = MAPISession1.SessionID
　　FetchNewMail
　　DisplayMessage
　　End Sub

　　13、将下列代码加入cmdPrevious的Click事件：

　　Private Sub cmdPrevious_Click()
　　If MAPIMessages1.MsgIndex > 0 Then
　　MAPIMessages1.MsgIndex = MAPIMessages1.MsgIndex - 1
　　DisplayMessage
　　Else
　　Beep
　　End If
　　End Sub

查看 http://www.qqread.com/vb/d462884100.html