in Outlook einen Termin eintragen per ole

[Susanne]

Vielleicht kann mir ja jemand von euch weiterhelfen. Ich möchte aus einem anderen Programm heraus in Outlook einen Termin anlegen, aber irgendwie funktioniert das nicht.

Mit dem unten stehenden Quellcode füllt er aber eine e-mail und hängt dort die Datei an. Was habe ich also falsch gemacht? Er öffnet Outlook und er zeigt mir auch den Kalender an, also bis zu dem Punkt sollte es wohl richtig laufen, aber dann den Eintrag eines Termin in den Kalender, der funktioniert nicht mehr.

Weiss von euch jemand, woran es liegen könnte?

Ersetze ich z.B. olFolderCalendar durch olFolderContacts und olAppointmentItem durch olContactItem erscheint der Dialog zum Eingeben eines Kontaktes, aber vorher eben immer das Mailfenster und nicht das Fenster zum Eintragen eines Termins!

Gruss
Susanne

Delphi-Quellcode:

function TfrmWiedervorlage.TerminErstellenMitAnhang(test:String ):Boolean;
   const olAppointmentItem = 0;
   var
     outlook       : OleVariant;
     folder        : OleVariant;
     NmSpace       : OleVariant;
     AI            : Variant;
   begin
      try
         Outlook:=CreateOleObject('Outlook.Application');
         NmSpace := Outlook.GetNamespace('MAPI');
         NmSpace.Logon(EmptyParam, EmptyParam, False, True);
         Folder := NmSpace.GetDefaultFolder(olFolderCalendar);
         Folder.Display;
         
         //Termin einstellen
         AI:= outlook.CreateItem(olAppointmentItem);
         AI.Subject:='Message';
         //AI.Start.Add:=StrToDateTime('04.08.2004');
         AI.Attachments.Add('D:\Dateien\test.xxx', olAppointmentItem);
         AI.Save;
         Result:= True;
      except
         ShowMessage('Fehler in Funktion TerminErstellenMitAnhang');
         Result:= False;
      end;
      //Outlook nach Eintrag schliessen
      NmSpace.Logoff;
      Outlook.Quit;
      Outlook:= Unassigned;
   end;