Outlook-Ordner und Mails listen

Sub OutlookOrdnerListen()
Dim objOutlook As Object
Dim objOrdner As Object
Dim objSpace As Object
Dim i As Integer
Dim ii As Integer
Dim iii As Integer
Dim j As Integer
Dim intZähler As Integer
Dim dblGröße As Double
Dim mf As MAPIFolder
Set objOutlook = CreateObject("Outlook.Application")
Set objSpace = objOutlook.GetNamespace("MAPI")
intZähler = 1
For i = 1 To objSpace.Folders.Count
intZähler = intZähler + 1
Set objOrdner = objSpace.Folders(i)
dblGröße = 0
For ii = 1 To objOrdner.Folders.Count
Sheets(1).Cells(intZähler, 2) = objOrdner.Folders(ii)
For iii = 1 To objOrdner.Folders(ii).Items.Count
Sheets(1).Cells(intZähler, 3) = objOrdner.Folders(ii).Items(iii)
intZähler = intZähler + 1
Next
intZähler = intZähler + 1
Next
intZähler = intZähler + 1
Next
End Sub