Outlook Kalendereintrag wie Kontakt mitgeben

[Andreas Schilling]

Delphi5, Outlook2000, Windows XP
Leider finde ich nicht den Syntax um zu einen Kalendereintrag auch den dazu gehörenden Kontakt zu übergeben. CompanyName wie beim Kontakt gibt es nicht, Companies ist leer auch wenn ich in Outlook einen Kontakt zum Termin zuordne, CustomerID, was ja die eindeutige ID des Kontakts sein soll, kennt der Termin auch nicht. Wie spreche ich also den Kontakt des Termin über Delphi an.

Delphi-Quellcode:

  aCalenderItem2.Start := DSET_TermineZEIT.Value + int(DSET_TermineTERMIN.Value);
  try
    Dauer :=  round(((DSET_TermineZEIT_BIS.Value + int(DSET_TermineTERMIN_BIS.Value)) -
                   (DSET_TermineZEIT.Value + int(DSET_TermineTERMIN.Value)))* 1440);
    aCalenderItem2.Duration := Dauer;
  except
    aCalenderItem2.Duration := 0;
  end;
  aCalenderItem2.Subject := DSET_Terminewas.AsString;
  aCalenderItem2.Location := DSET_TermineLOCATION.asstring;
  aCalenderItem2.Body := DSET_TermineBEMERKUNG.asstring;
  aCalenderItem2.BillingInformation := DSET_TermineID.asstring;
  aCalenderItem2.Categories := 'geschäftlich';
  // welche Property beinhaltet den Kontakt ???
  aCalenderItem2.save;

Gruß Andreas