Hallo miteinander,

ich habe hier ein Outlook-Makro (unten ein Ausschnitt), das rätselhafterweise nur dann funktioniert, wenn ich den Code im Debugger "durchklickere". In freier Wildbahn ist die ActiveExplorer.Selection leer und DoWhatMustBeDone wird nie durchlaufen.
Wie bekomme ich den Code zum korrekten Arbeiten?
 

Dim NextFolder As folder
Dim oCurItem As Object
Dim bFolderFound As Boolean

[...]
Do while bFolderFound
   Set NextFolder = GetNextFolder(...)
   If NextFolder Is Nothing Then
      bFolderFound = False
   Else
      Set Outlook.ActiveExplorer.CurrentFolder = NextFolder
      Outlook.ActiveExplorer.SelectAllItems
      For Each oCurItem in Outlook.ActiveExplorer.Selection
	     DoWhatMustBeDone(oCurItem)
      Next
   End If
Loop  

PS Ich brauche den Zugriff auf die Selection, weil z.B. CurrentFolder.Items.Item(i) für meine Zwecke nicht zuverlässig funktioniert.  

Windows 10 Enterprise, Microsoft® Outlook® für Microsoft 365 MSO (Version 2205) 32 Bit