監視の見通し（2）vb wry mouth ares

次のコードは、Outlookで電子メールを示しています。効果は、電子メールをダブルクリックして開くのと同じです。

前提は、いくつかのことを引用することです：
プロジェクト->参照-> Mircrosoft outlook15.0オブジェクトライブラリとMicrosoftOutlookビューコントロールの選択-> [OK]をクリックします

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

ユーザーが既にOutlookを開いている必要はありません。