Hallo,
ich kämpfe hier ein wenig mit einem sehr seltsamen Problem.
Um sowohl ganztägige als auch normale Termine auszulesen, verwende ich folgenden Code:
Delphi-Quellcode:
sVon := DateTimeToStr(Date) + '
00:00:00';
sBis := DateTimeToStr(EndOfTheWeek(Date));
sFilter := '
([Start] >= ' + QuotedStr(sVon) + '
AND [End] <= ' +
QuotedStr(sBis) +
'
) OR ([Start] >= ' + QuotedStr(Copy(sVon, 1, 10)) + '
AND [End] <= ' +
QuotedStr(Copy(sBis, 1, 10)) + '
)';
NewOlInstance := (FindWindow('
rctrl_renwnd32',
nil) = 0);
Outlook := TOutlookApplication.Create(Application);
Outlook.Connect;
NmSpace := outlook.GetNamespace('
MAPI');
NmSpace.Logon('
', '
', False, False);
Termine := NmSpace.GetDefaultFolder(olFolderCalendar);
GefilterteTermine := Termine.Items.Restrict(sFilter);
GefilterteTermine.Sort('
Start');
Mit Outlook 2K7 gibt es keine Probleme, bei Outlook 2K3 kommt jedoch jedesmal die Fehlermeldung
Zitat:
Typkonflikt oder der Wert "10.12.2007 00:00:00" in der Bedingung ist ungültig.
Hat hier jemand ne Idee, wie ich das Problem für Outlook 2K3 beheben kann?