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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen