Hallo Gast,
Schon wieder meon Retter.
Das sieht top aus und scheint so im ersten Test gut zu funktionieren.
Leider klappt es dann aber beim Filtern nicht mehr.
Dim xItems, Items0 as Outlook.Items
Set xItems = colAllMailItems
Filter = "[SentOn] >= '" & Format(date1, C_FILTER_DATE_FORMAT) & "' AND [SentOn] <= '" & Format(date2, C_FILTER_DATE_FORMAT2) & "'"
'Test funktioniert
For X = 1 To 10
Debug.Print " Datum Item = " & xItems(X).SentOn
Next
Set Items0 = xItems.Restrict(Filter) 'bringt Fehlermeldung
Die Anwendung des Filters bringt die Fehlermeldung:
Laufzeitfehler 438
Das object unterstützt diese Eigenschaft oder Methode nicht
Hast du dazu vielleicht auch noch eine Idee?
Danke
tolo
|