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

您现在的位置是：软件 > 开发者网络 > 程序方舟 > 开发专栏 > VB开发 > 正文

	T O P 排行
-	Java套接字编程（下）
-	MediaStudio Pro 6.5教程
-	三款卸载软件最新试用
-	基于Visual C++的Winsock API研究

网校热门

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

2001-12-22· · ··Yesky

　　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

【责任编辑：】

【发表评论】【关闭窗口】


	■ 相关内容

	在VB下实现无线通信的方法　用Visual Basic设计Windows门禁程序　通讯录用VB做　 VB6中用DataReport做报表　 VB6中用DataReport做报表　 Visual Basic中第三方控件使用之金蝉脱壳　用VB6.0开发猜数字小游戏　用VB编写DirectX7.0游戏　 JSP记事本程序　制作自己的IE 　用VB编写FLASH动画播放器　一个小巧精致的CPU监视器　制作自己的网络搜索软件

感谢访问天极网，如果您觉得该文章涉及版权问题，请看这里！