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:

zusammenfalten · markieren

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?

Gefahr erkannt, Gefahr gebannt:

zusammenfalten · markieren

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)) + ')';

sFilter2 := '([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);

try
  GefilterteTermine := Termine.Items.Restrict(sFilter);
except
  GefilterteTermine := Termine.Items.Restrict(sFilter2);
end;

GefilterteTermine.Sort('Start');