Termineintrag aus Outlook auslesen

[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;

Jetzt werden in meinem Memo schön die Termine mit Beschreibung etc angeziegt. Ist ne super Sache, allerdings verstehe ich einige Passagen des Quellcodes nicht. Ich will den ja nicht nur einfach kopieren, sondern auch verstehen. Wäre jmd bereit mir das zu erleutern?
Zum Beispiel stellt sich mir die Frage, warum brauche ich eine Constante und was macht die? Dann verstehe ich die nächsten Zeilen, aber schon die Zeile NameSpace := outlook.GetNameSpace('MAPI'); hab ich wieder Probleme. Der Rest ist wieder relativ klar, allerdings verstehe ich nicht, warum ich einfach Termin.X schreiben kann um irgendwas x-beliebiges auslesen kann. Termin ist doch eindeutig zugewiesen, warum hat das noch die ganzen Unterpunkte??

Hoffe, mir kann jmd helfen, und sorry für die vll blöden Fragen...

bye

[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.