Outlook item Kalender reserviertes Wort end verwenden

[ingo.neumann]

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 := '[e-mail]';
       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...

[himitsu]

Mit & kann man reservierte Wörter maskieren.
NeuTermin.&end

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


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)

[det33]

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