Hallo.
Ich habe eine Frage zu diesem Code: objFolder ist ein Objekt aus dem Standardkalender. (ich hoffe, das beschreibt man so)
...
dtTwoWeeks = DateAdd("d", +14, date)
dtNextDay = DateAdd("d", +1, date)
strRestriction = "[Start] >= '" & dtNextDay & "' AND [Start] <= '" & dtTwoWeeks & "'"
Set MyItems = objFolder.Items.Restrict(strRestriction)
MyItems.Sort("[Start]")
For Each CurrentAppointment in MyItems
....
Damit werden leider auch ALLE recurring Appointments angezeigt. Ich habe keine Ahnung, warum zB ein sich wiederholender Geburtstag auch bei dieser Restriction unter MyItems angezeigt wird.
Ich habe MyItems.IncludeRecurrences = false probiert. Aber trotzdem kommen die "Jahrestage" wieder
Derzeit filtere ich diese Termine mit
If (CurrentAppointment.Start > dtNextDay And CurrentAppointment.Start <= dtTwoWeeks)
aus. Das klappt. aber warum ist das erforderlich, wenn sie doch eigentlich gar nicht da sein dürften?
Kann mir jemand einen Tipp geben?
|