ich weis, der Thread ist jetzt schon was älter,
aber ich habe das Problem das ich nur den "Kalender" auslesen kann, wie schaffe ich das ich einen freigegebenen Kalender auswähle?
Kann mir da einer Helfen? Kann auch sein das ich da jetzt etwas aufm schlauch steh...
Danke
PS: Outlook2016
Delphi-Quellcode:
var
outlook, NameSpace,calendarfolder, Termine, Termin,topfolder: OleVariant;
i: Integer;
begin
outlook := CreateOleObject('
Outlook.Application');
NameSpace := outlook.GetNameSpace('
MAPI');
TopFolder := NameSpace.Folders[1];
CalendarFolder := TopFolder.Folders('
Kalender');
Termine := NameSpace.GetDefaultFolder($00000009);
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;