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