Mailliste in Excel-Tabelle

Sub alle_mails_anzeigen()
'Prozedur aus einem leeren Tabellenblatt starten
On Error Resume Next 'weiter, trotz fehlendem Betreff, Sender o.Sendedatum
Set outlk = CreateObject("Outlook.Application")
Set struc = outlk.GetNamespace("MAPI").Folders
Set persö = struc.Item("Persönliche Ordner")
For Each p In persö.Folders                 'alle Ordner
k = k + 1                               'Zeilenzähler
Cells(k, 1) = p.Parent.Name
Cells(k, 2) = p.Name
If k > 10 Then                          'Standardordner auslassen
For Each q In p.Folders             'alle benutzerdefinierten Unterverzeichnisse
k = k + 1
Cells(k, 2) = q.Parent.Name
Cells(k, 3) = q.Name
n = q.Items.Count
For i = 1 To n              'alle Mails im jeweiligen Unterverzeichnis
k = k + 1
Cells(k, 3) = q.Items(i).Subject
Cells(k, 4) = q.Items(i).SenderName
Cells(k, 5) = q.Items(i).SentOn
Next
Next
End If
Next
End Sub