小叮当也战江湖—VB实例七日谈(一)

来源：电脑爱好者 作者：赵江 出处：巧巧读书 2005-11-06 进入讨论组

• 关 键 词：
• microsoft
• exchange
• windows
• outlook
• 电子邮件

上一页 1 2 3 4 5 6 

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

　　Private Sub Form_Load()
　　MAPISession1.SignOn
　　MAPIMessages1.SessionID = MAPISession1.SessionID
　　FetchNewMail　　　　/调用Fetch子程序
　　DisplayMessage　　　　/调用DisPlayMessage子程序
　　End Sub

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

　　Private Sub cmdPrevious()
　　If MAPIMessages1.MsgIndex > 0 Then
　　MAPIMessages1.MsgIndex = MAPIMessages1.MsgIndex - 1　　/当收取信件超过1封的时候，通过“上一封”按钮查看前面的信件
　　DisplayMessage
　　Else
　　Beep
　　End If
　　End Sub

　　5、将下列代码加入cmdNext的Click事件：

　　Private Sub cmdNext_Click()
　　If MAPIMessages1.MsgIndex < MAPIMessages1.MsgCount - 1 Then
　　MAPIMessages1.MsgIndex = MAPIMessages1.MsgIndex + 1　　/当收取信件超过1封的时候，通过“下一封”按钮查看后面的信件
　　DisplayMessage
　　Else
　　Beep
　　End If
　　End Sub

　　6、将下列代码加入cmdClose的Click事件：

　　Private Sub cmdClose_Click()
　　Unload Me
　　End Sub

　　程序运行后，在窗体加载过程中，窗体Load事件中的代码会读取新邮件，如果有新邮件，就显示第一个新邮件，如果有多个新邮件，则可以使用“上一封”和“下一封”命令按钮前后翻阅。你再看看，这封收取下来的邮件是不是我们刚才发送出去的？

　　小蘑菇：呵呵，真厉害！其实刚才我知道你肯定可以收到这封邮件的，只不过是说着玩的，嘿嘿。我来试着给别人发送一些邮件。

　　小叮当：那你就用它给好朋友发送几封邮件，告诉他们是用你自己编写的程序发送的，他们保证大吃一惊呢。
文字：http://www.qqread.com/vb/a820559010.html进入讨论组讨论。

上一页 1 2 3 4 5 6 

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：小叮当也战江湖—VB实例七日谈(二)

较新的文章：用MCI指令进行多媒体编程