Sub UnTrustedCode() 'mit MessageBox
    Dim olApp As New Outlook.Application
    Dim oMail As Outlook.MailItem
    Set oMail = _
        olApp.Session.GetDefaultFolder(olFolderInbox).Items(1)
    MsgBox oMail.SenderEmailAddress, vbInformation
End Sub
 
Sub TrustedCode() 'ohne MessageBox
    Dim olApp As Outlook.Application
    'Neue Version
    Set olApp = Application
    'Alte Version
    'Set oApl = CreateObject("Outlook.Application")
    Dim oMail As Outlook.MailItem
    Set oMail = _
        olApp.Session.GetDefaultFolder(olFolderInbox).Items(1)
    MsgBox oMail.SenderEmailAddress, vbInformation
End Sub