Hi,
ich bin beim stöbern auf diesen Thread gekommen und habe das gleich mal ausprobiert:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
const
olFolderCalendar = $00000009;
var
outlook, NameSpace, Termine, Termin: OleVariant;
i: Integer;
begin
outlook := CreateOleObject('
Outlook.Application');
NameSpace := outlook.GetNameSpace('
MAPI');
Termine := NameSpace.GetDefaultFolder(olFolderCalendar);
for i := 1
to Termine.Items.Count
do
begin
Termin := Termine.Items.Item(i);
// Titel des Termins und Startdatum mit Zeit auslesen:
memo1.lines.add(DateTimeToStr (Termin.Start) + '
bis ' + DateTimeToStr (Termin.
End)+ '
: ' + Termin.Subject + '
, ' + Termin.Location + '
, ' + Termin.Body );
end;
Outlook := UnAssigned;
end;
Hallo @all,
ich habe diesen Code auch mal ausprobiert. Funktioniert super. Wie aber kann ich auf einen anderen (fremden) freigegebenen Kalender zugreifen und Termine exportieren.
