Opret møde vha. Outlook-objektet fejler

Via Outlook vil vi gerne oprette mødeindkaldelser men det går ikke uden fejl.

Givet følgende kodeudsnit:

  {initialize Outlook}
  outlook := CreateOLEObject('Outlook.Application');
  OlSecurityManager.ConnectTo(Outlook.Application);
  OlSecurityManager.DisableOOMWarnings := True;
  try
    ...
    while not wwQuery.EOF do
    begin
      Recipt := Trim(wwQuery.FieldByName('EMAIL').AsString);
      appointment.Recipients.Add(Recipt);
      wwQuery.Next;
    end;
    appointment.MeetingStatus := Longint(olMeeting); // = 1
    appointment.Save;

    appointment.Send; // < Fejler her!!
    ...

Når man kører .Send får vi en "Ugyldig funktion" -> "invalid function" fejl og da vi ikke er ferme til at debugge com-objekter spørger vi her.

Hvad kan vi gøre / hvad gør vi forkert?

Har forsøgt at importere komponenten, men her er fejlmeddelelsen at objektet ikke understøtter "selvregistrering".