Outllook Kontakt in öffentlichen Ordner schreiben

[Borschti]

Hallo,

ich versuche zZ einen Kontakt in einen öffentlichen Ordner zu Schreiben, dieser Ordner hat den Pfad \\Öffentliche Ordner\Alle Öffentlichen Ordner\Borrmann (Der Kontaktordner heist Kontakt-Borrmann). Wie gesagt versuche ich in den Kontaktordner einen Kontakt zu schreiben, zZ klappt es nur das ich in meinem Lokalen Kontaktordner einen Kontakt anlegen kann.

Soweit bin ich nun schon gekommen:

Delphi-Quellcode:

procedure TOutlookPro.KontaktSchreiben();
var
  CI: ContactItem;
  NmSpace : NameSpace;
  OutlookApp : TOutlookApplication;
  ExcelPro : TExcelPro;
  Kontakt : TKontakt;
  i : Integer;
  Contact : MAPIFolder;
begin
  OutlookApp := TOutlookApplication.Create(Self);
  ExcelPro := TExcelPro.Create(Self);
  ExcelPro.DateiPfad := 'C:\Dokumente und Einstellungen\ABO\Eigene Dateien\Ausbildungs Datein\Delphi-Projekte\OutlookImport\kunden_borrmann_fuer_outlook_oeffentliches_adressbuch.xls';
  ExcelPro.CountRows;

  try
    OutlookApp.Connect;
    try
      NmSpace := OutlookApp.GetNamespace('MAPI');
      NmSpace.PickFolder.Name := '\\Öffentliche Ordner\Alle Öffentlichen Ordner\Borrmann\Kontakt-Borrmann';
      NmSpace.Logon('','',True,True);

      for i := 1 to ExcelPro.RowCount do
        begin
          Kontakt := ExcelPro.DateiEinlesen(i);

          CI := OutlookApp.CreateItem(olContactItem) as ContactItem;
          CI.Body := Kontakt.kndNr;
          CI.FullName := Kontakt.FullName;
          CI.CompanyName := Kontakt.CompanyName;
          CI.BusinessAddressStreet := Kontakt.BusinessAdressStreet;
          CI.BusinessAddressPostalCode := Kontakt.BusinessAddressPostalCode;
          CI.BusinessAddressCity := Kontakt.BusinessAddressCity;
          CI.BusinessTelephoneNumber := Kontakt.BusinessTelephoneNumber;
          CI.BusinessFaxNumber := Kontakt.BusinessFaxNumber;
          CI.Email1Address := Kontakt.EmailAddress;
          CI.BusinessHomePage := Kontakt.BusinessHomePage;
          CI.FileAs := Kontakt.FileAs;
          CI.Save;
        end;
    finally
      OutlookApp.Disconnect;
    end;
  finally
    //OutlookApp.Quit;
  end;
end;

Aber durch      NmSpace.PickFolder.Name := '\\Öffentliche Ordner\Alle Öffentlichen Ordner\Borrmann\Kontakt-Borrmann'; wird in meinem Outlook ein Dialog zum auswählen des Ordners aufgerufen was natürlich nicht sein darf. Wie kann ich den Ordner in dem geschrieben werden soll einfach festlegen, sprich über eine Eigenschaft?

lg Alex