Infos aus Mailheader in Outlook direkt anzeigen. z.B. externe Absender

Sub ShowHeaders()
    On Error Resume Next
    Dim mail As MailItem
    Dim itm As Object
    If Not ActiveInspector Is Nothing Then
        Set itm = ActiveInspector.CurrentItem
        If itm.Class = olMail Then
            Set mail = ActiveInspector.CurrentItem
        End If
    ElseIf ActiveExplorer.Selection.Count > 0 Then
        Set itm = ActiveExplorer.Selection.Item(1)
        If itm.Class = olMail Then
            Set mail = ActiveExplorer.Selection.Item(1)
        End If
    End If
    If Not mail Is Nothing Then
        ' load header property  
        MsgBox mail.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x007D001E")  
    End If
End Sub