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
|