Outlook Kalender lesen und schreiben

[Chemiker]

Hallo Kevin11,

vielleicht hilft das weiter: http://www.delphipraxis.net/1078732-post16.html

Bis bald Chemiker

[Kevin11]

Hallo Chemiker,

du hast nicht zufällig einen Code, der die Daten von Outlook ausliest? Ich habe das ganze mit D10 in eine VM gepackt und dort funktioniert es wunderbar.

Edit: Auslesen klappt hervorragend. Jetzt stoße ich nur auf so eine dumme Outlook-Meldung:

Programm versucht, auf Ihre in Outlook gespeicherten E-Mail-Adressinformationen zuzugreifen. Geschieht dies unerwartet, klicken Sie auf 'Verweigern'. Überprüfen Sie, ob Sie die aktuellste Version der Antivirusprogramms haben.

Wie kann ich diese Meldung umgehen? Ist nämlich tierrisch nervig bei jedem Aufruf auf Erteilen zu klicken.

Vielen Dank und Gruß
Kevin11

[ulli007]

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;