Outlook 2003 mag 00:00:00 in Einschränkung für Termine nicht

[HeikoAdams]

Gefahr erkannt, Gefahr gebannt:

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