2
Outlook 2010 Makro Ordner zählen ohne Schleife
Hallo Admins,
gibt es eine Möglickeit alle in einer Outlooksession vorhandenen Ordner mittels Makro zu zählen ohne eine komplette Schleife durchgehen und die Ordner einzeln hochzählen zu müssen?
Es sind 6-7 Postfächer vorhanden mit insgesamt ca. 2500 Ordnern auf bis zu 6 Ebenen. Das Durchzählen über die Schleife dauert ca. 20 Sekunden. Ich brauche die Gesamtanzahl um einen Verlauf darstellen zu können (x von y Ordnern durchsucht). Das Zählen dauert fast so lange wie die anschließende Verarbeitung.
Die Ordner werden so übergeben.
Dim ofFolders As Outlook.Folders
Set ofFolders = Application.Session.Folders
LoopFolders ofFolders
For Each ofF In ofFolders
...
LoopFolders ofF.ofFolders
...
Da die Suche rekursiv ist nutzt der Parameter ofFolders.count nichts, da dieser immer nur die Unterordner des aktuellen Ordners ausgibt.
Danke für eure Hilfe!
Gruß Joni
gibt es eine Möglickeit alle in einer Outlooksession vorhandenen Ordner mittels Makro zu zählen ohne eine komplette Schleife durchgehen und die Ordner einzeln hochzählen zu müssen?
Es sind 6-7 Postfächer vorhanden mit insgesamt ca. 2500 Ordnern auf bis zu 6 Ebenen. Das Durchzählen über die Schleife dauert ca. 20 Sekunden. Ich brauche die Gesamtanzahl um einen Verlauf darstellen zu können (x von y Ordnern durchsucht). Das Zählen dauert fast so lange wie die anschließende Verarbeitung.
Die Ordner werden so übergeben.
Dim ofFolders As Outlook.Folders
Set ofFolders = Application.Session.Folders
LoopFolders ofFolders
For Each ofF In ofFolders
...
LoopFolders ofF.ofFolders
...
Da die Suche rekursiv ist nutzt der Parameter ofFolders.count nichts, da dieser immer nur die Unterordner des aktuellen Ordners ausgibt.
Danke für eure Hilfe!
Gruß Joni
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 237537
Url: https://administrator.de/contentid/237537
Printed on: April 19, 2024 at 02:04 o'clock
2 Comments
Latest comment
Hallo Joni,
das wäre schön, aber da gibt es leider keine andere Möglichkeit...
Grüße Uwe
das wäre schön, aber da gibt es leider keine andere Möglichkeit...
Grüße Uwe
Hallo Uwe,
das wäre auch zu schöne gewesen.
Danke und schöne Grüße Joni
das wäre auch zu schöne gewesen.
Danke und schöne Grüße Joni
