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