Option Explicit
 
Dim ol As Outlook.Application
Dim ns As NameSpace
Dim mf As MAPIFolder
Dim mi As MailItem
 
Private Sub Command1_Click()
    Dim s As String
 
    Set ol = New Outlook.Application
    Set ns = ol.GetNamespace("MAPI")
    Set mf = ns.GetDefaultFolder(olFolderInbox)
 
    For Each mi In mf.Items
        s = mi.Body
        MsgBox s
    Next mi
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1