Termine für einen Tag aus Outlook exportieren

[R2D2]

Hallo!
Ich exportiere momentan mit folgendem Quellcode Termine aus Outlook.

Delphi-Quellcode:

procedure TDeskBar.CalendarClick(Sender: TObject);
const
  olFolderCalendar = $00000009;
var
  outlook, NameSpace, Termine, Termin: OleVariant;
  i,n: Integer; Terminstr: String;
begin
  try
  for n := 0 to Calendarlist.items.Count do
  begin
    Calendarlist.Items.Delete(n);
  end;
  outlook := CreateOleObject('Outlook.Application');
  NameSpace := outlook.GetNameSpace('MAPI');
  Termine := NameSpace.GetDefaultFolder(olFolderCalendar);
  for i := 1 to Termine.Items.Count do
  begin
    if Calendar.Date = trunc(Termine.Items.Item(i).start)then
    begin
      Terminstr := DateTimetoStr(Termine.Items.Item(i).start) + ' ' + Termine.Items.Item(i).subject;
      Calendarlist.Items.Add(Terminstr);
    end;
  end;
  Outlook := UnAssigned;
  except
  ShowMessage('Beim importieren ist ein Fehler aufgetreten. Möglicherweise ist Outlook nicht konfiguriert.');
  end;
end;

Da ich jedes mal überprüfe, ob der Eintrag für den aktuellen Tag ist, braucht das ganze extrem viel Rechenleistung. Gibt es da auch eine Möglichkeit, nur die Termine eines Tages auszulesen?
Vielen Dank im Vorraus!

[R2D2]

Gibt es da denn nichts einfacheres? :cry:

[Gigant02]

hast du was einfacheres gefunden ??

oder noch nicht ??

würde ich auch gerne wissen

[R2D2]

Nein, ich hab nur nen schnelleren Such-Algorythmus geschrieben, der aber nie ganz funktionniert hat.

Basierend auf rekursiven Funktionen.

[Gigant02]

hmm ich werd dann einfach mal etwas schaun ob ich da noch eine andere lösung finde