lblMsgOrigDisplayName.Caption = MAPIMessages1.MsgOrigDisplayName /发送邮件的姓名
lblMsgSubject.Caption = MAPIMessages1.MsgSubject /邮件主题
End Sub 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事件中的代码会读取新邮件，如果有新邮件，就显示第一个新邮件，如果有多个新邮件，则可以使用“上一封”和“下一封”命令按钮前后翻阅。你再看看，这封收取下来的邮件是不是我们刚才发送出去的？
小蘑菇：呵呵，真厉害！其实刚才我知道你肯定可以收到这封邮件的，只不过是说着玩的，嘿嘿。我来试着给别人发送一些邮件。
小叮当：那你就用它给好朋友发送几封邮件，告诉他们是用你自己编写的程序发送的，他们保证大吃一惊呢。
上一页 [1] [2]
本文关键字：程序设计 江湖 51单片机，单片机-工控设备 - 51单片机
