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!