Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Outlook 2010 Makro Ordner zählen ohne Schleife

Frage Microsoft Outlook & Mail

Mitglied: joni2000de

joni2000de (Level 1) - Jetzt verbinden

08.05.2014, aktualisiert 11.05.2014, 1519 Aufrufe, 2 Kommentare

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
Mitglied: colinardo
LÖSUNG 08.05.2014, aktualisiert 11.05.2014
Hallo Joni,
das wäre schön, aber da gibt es leider keine andere Möglichkeit...

Grüße Uwe
Bitte warten ..
Mitglied: joni2000de
11.05.2014 um 11:53 Uhr
Hallo Uwe,
das wäre auch zu schöne gewesen.
Danke und schöne Grüße Joni
Bitte warten ..
Ähnliche Inhalte
Outlook & Mail
gelöst Outlook 2010: Ordner Postausgang fehlt (9)

Frage von msgm26 zum Thema Outlook & Mail ...

Outlook & Mail
Unter Outlook 2010 fehlen selbst erstellte Ordner (8)

Frage von Fitzel69 zum Thema Outlook & Mail ...

VB for Applications
gelöst Makro auf alle Dateien im Ordner (1)

Frage von mcandyyyyy zum Thema VB for Applications ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows 10
Windows 10 im Unternehmen? (26)

Frage von zorlayan zum Thema Windows 10 ...

LAN, WAN, Wireless
Ping u. DNS geht am Rechner nicht mehr (18)

Frage von Kuemmel zum Thema LAN, WAN, Wireless ...

Festplatten, SSD, Raid
Raid 1 2 SSD mit Windows Server 2016 (17)

Frage von jaywee zum Thema Festplatten, SSD, Raid ...

Voice over IP
Über Fritzfax over IP gehen nur einige Faxe (12)

Frage von shearer9 zum Thema Voice over IP ...