Erinnerung an Outlook-Termin - TerminDetails

[Susanne]

Hallo,

Mein Programm soll eine Outlook-Erinnerung weiterbearbeiten. Die Erinnerung ist für einen Termin, dessen Details ich benötige. Bisher habe ich folgendes:

Delphi-Quellcode:

function TfrmuWiedervorlage.aktuelleErinnerung():Boolean;
   var
      Rems, Rem, Outlool, NmSpace  : OleVariant;
      z, x , d     : Integer;
      b            : boolean;
      Appointment  : OleVariant;
   begin
      try
         Outlook:= CreateOleObject('Outlook.Application');
         NmSpace:= Outlook.GetNamespace('MAPI');
         NmSpace.Logon(EmptyParam, EmptyParam, False, True);
         Rems:= Outlook.Reminders;
         x:= Rems.count ;
         if x>0 then
            begin
               Rem:= Rems.Item(1);
               //b hat den wert true
               b:= Rem.isVisible;
               if b then
                  begin
                      
                    //Jetzt möchte ich hier den Termin auswerten, der hinter der
                    //erinnung steht, z.B. das Subject, Anfangs und Endzeit, ob es Attachments
                    //gibt, aber wie mache ich das?
 
                                       
                  end;
              end;
         Result:= True;
      except
         ShowMessage('Fehler in Funktion TerminAbfragen');
         Result:= false;
      end;
      NmSpace.Logoff;
      Outlook:= Unassigned;
   end;

Weiss da jemand, wie ich das machen kann?

Gruss
Susanne

[Eisenherz]

Zitat von Susanne:

Weiss da jemand, wie ich das machen kann?

Die Startzeit bekommst du z.B. mit

Code:

ShowMessage(Rem.Item.Start);

Dazu musst du aber sicherstellen, dass Item wirklich ein AppointmentItem ist.