Termineintrag aus Outlook auslesen

[MrChey]

Zitat von Mikro:

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.