监视outlook (二) vb歪嘴战神

原创于 2020-09-08 17:17:38 发布 · 274 阅读

0 ·

CC 4.0 BY-SA版权

其他专栏收录该内容

17 篇文章

订阅专栏

本文介绍使用VBA代码在Outlook中展示邮件的方法。通过引用Microsoft Outlook 15.0 Object Library和Microsoft Outlook View Control，可在应用程序中直接显示收件箱中的第一封邮件。

下面的代码是展示outlook里的一封邮件. 效果相当于双击邮件打开

前提引用一些东西:
工程->引用->选择Mircrosoft outlook 15.0 object library 和 microsoft outlook view control->点确定


Private Sub Form_Load()

    MsgBox (Environ("username"))
    MsgBox (Environ("computername"))
    
    DisplayFirstItem
        
End Sub


Sub DisplayFirstItem()
 
 Dim myNameSpace As Outlook.NameSpace
 
 Dim myFolder As Outlook.Folder
 
 Set myNameSpace = Application.GetNamespace("MAPI")
 
 Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
 
 On Error GoTo ErrorHandler
 
 myFolder.Items(1).Display
 
 Exit Sub
 
ErrorHandler:
 
 MsgBox "There are no items to display."
 
End Sub

''https://docs.microsoft.com/zh-cn/office/vba/api/Outlook.MailItem.Display