Dim o As Outlook.Application
   Dim s As Outlook.NameSpace
   Dim f As Outlook.Folder
   Dim m As Outlook.MailItem
 
   Set o = CreateObject("Outlook.Application")
   Set s = o.GetNamespace("MAPI")
   Set f = s.Folders("deineMailAddresse")
   Set f = f.Folders("Posteingang")
   For Each m In f.Items
      MsgBox m.Body
   Next