メール表示

Sub メール表示()
    Dim olApp As Object
    Dim olInspector As Object
    Dim olMailItem As Object
    
    Set olApp = GetObject(, "Outlook.Application")
    Set olInspector = olApp.ActiveInspector
    Set olMailItem = olInspector.CurrentItem
    
    If Not olMailItem Is Nothing Then ' メールアイテムを表示
        olMailItem.Display
    Else
        MsgBox "現在のアイテムはメールアイテムではありません。", vbExclamation
    End If
    
    ' オブジェクトを解放
    Set olMailItem = Nothing
    Set olInspector = Nothing
    Set olApp = Nothing
End Sub