Thema Datum  Von Nutzer Rating
Antwort
02.03.2021 09:43:08 Sven
NotSolved
02.03.2021 09:53:31 Mase
NotSolved
02.03.2021 10:08:40 sven
NotSolved
02.03.2021 10:33:32 Mase
NotSolved
Rot Outlook Exchange-Ordner durchsuchen seeeehr langsam
 02.03.2021 10:37:14 Mase
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
02.03.2021 10:37:14		 Views:
521		 Rating:
     
Antwort:
  Ja
Thema:
Outlook Exchange-Ordner durchsuchen seeeehr langsam		 
Sub main()

    Dim t As Variant
    '*** aktuell vergangene Sekunden ab Mitternacht in einer Variablen merken
    t = Timer
    
    '*** Ordner durchsuchen
    DurchsucheFolder Application.Session.Folders(1)
    
    '*** wie viel Zeit ist seither vergangen
    MsgBox "Durchlaufzeit: " & (Timer - t) & "/sek."
    
    
End Sub

Sub DurchsucheFolder(ByRef olStartFolder As Outlook.Folder)

    Dim fldr As Outlook.Folder
    
    For Each fldr In olStartFolder.Folders
        '*** Ausgabe beim normalen durchlaufen lassen deaktivieren -> Zeiträuber
        Debug.Print fldr.Name
        Call DurchsucheFolder(fldr)
    Next
    
    
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
02.03.2021 09:43:08 Sven
NotSolved
02.03.2021 09:53:31 Mase
NotSolved
02.03.2021 10:08:40 sven
NotSolved
02.03.2021 10:33:32 Mase
NotSolved
Rot Outlook Exchange-Ordner durchsuchen seeeehr langsam
 02.03.2021 10:37:14 Mase
NotSolved