AW: Spalten/Zeilen-Vergleich mit mehreren Kriterien

Sub ListOutlookMails()
Dim olApp As Object
Dim objFolder As Object
Dim item As Object
Dim i As Long
Set olApp = CreateObject("outlook.application")
Set objFolder = olApp.GetNameSpace("MAPI").GetDefaultFolder(6) ' 6 = olFolderInbox
i = 1
For Each item In objFolder.Items
If TypeName(item) = "MailItem" Then
i = i + 1
Cells(i, 1).Value = item.CreationTime
Cells(i, 2).Value = item.SenderName
Cells(i, 3).Value = item.Subject
'Cells(i, 4).Value = item.Body
End If
Next
Set objFolder = Nothing
Set olApp = Nothing
End Sub