Delphi-PRAXiS - Delphi Outlook item Kalender reserviertes Wort end verwenden

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)

- - Delphi Outlook item Kalender reserviertes Wort end verwenden (https://www.delphipraxis.net/216133-outlook-item-kalender-reserviertes-wort-end-verwenden.html)

Outlook item Kalender reserviertes Wort end verwenden

Hallo Zusammen - Schwarmwissen gefragt:

Mit folgenden Code erstelle ich einen neuen Termin in einem freigegebenen Kalender in Outlook.

Delphi-Quellcode:

			procedure Tvkprojekt_kalendereintrag.BitBtn1Click(

  Sender: TObject);

const

  olFolderCalendar = $00000009;

var

  OutlApi1, 

  Namespace, 

  NeuTermin : Olevariant;

  Postfach1,

  TerminRoot, 

  TerminFolder : Olevariant;

  mailauswahl,

  sonderfeld : string;

begin

       // Projekttermin in Outlook übernehmen

       mailauswahl := 'mustermann@mustermail.de';

       OutlApi1 := createoleobject('Outlook.Application');

       NameSpace := OutlApi1.getnamespace('MAPI');

       Postfach1 := Namespace.createrecipient(mailauswahl);

       TerminRoot :=  namespace.getshareddefaultfolder(

          Postfach1,olFolderCalendar);

       TerminFolder := TerminRoot;

       NameSpace.Logon('', '', False, False);

       NeuTermin := TerminFolder.items.add;

       NeuTermin.subject := edit1.text;

       NeuTermin.location := edit2.text;

       NeuTermin.alldayevent := checkbox1.checked;

       NeuTermin.start := datetimepicker1.date;

       NeuTermin.end := datetimepicker3.date+1;

   NeuTermin.display;

   NameSpace.logoff;

   OutlApi1 := Unassigned;

   close;

   // Ende Projektkontakt in Outlook übernehmen

end;

Nun mein Problem:
Für das Ende eines Termins muss das item.end in Outlook gefüllt werden, dies interpretiert Delphi
natürlich als Ende der Routine, da ja ein reserviertes Wort.
Das kuriose, der komplimierte Code funktioniert, nur funktioniert die automatische Quellcodeerweiterung
nicht mehr.

Weiß jemand einen Rat - stehe auf dem Schlauch...

AW: Outlook item Kalender reserviertes Wort end verwenden

Mit & kann man reservierte Wörter maskieren.

Delphi-Quellcode:

NeuTermin.&end

Aber ob das jetzt auch dort funktioniert, wo der Name in den OleVariant rein geht .... :gruebel:

Ansonsten wirst du dich wohl an den IDispatch im OleVariant wenden und das Invoke manuell aufrufen müssen.

Oder direkt mit den Outlook-Interfaces arbeiten. (IMAPIFolderIrgendwas oder so)

AW: Outlook item Kalender reserviertes Wort end verwenden

Probiere es mal mit „End_“. Ist in ..\OCX\Servers\Outlook2010 unter _AppointmentItemDisp so deklariert. Ich arbeite immer mit TOutlookApplication (TOleSever).