Hallo Gast,

auch hier hast du wieder ein entscheidenter Impuls gegeben.

Die Lösung war hier zunächst die "folder.Items"  zu filtern und dann zusammen zu fassen, statt die Zusammenfassung aller "folder.Items" zu filtern.

Obwohl beide als Collection beschrieneben werden, scheint es doch Unterschiede zu geben, die u.a. das Filtern betreffen.

Auf alle Fälle hat es mit deiner Unterstützung geklappt.

Vielen Dank dafür.

LG

tolo

        Set objItems = Folder1.Items.Restrict(strFilter)
        Call AddMailItemsFromItems(objItems, colAllMailItems)


        Set objItems = Folder2.Items.Restrict(strFilter)
        Call AddMailItemsFromItems(objItems, colAllMailItems)