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

Delphi-Quellcode:

      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

[Borschti]

Kann mir da niemand weiter helfen? Habe zwar einen ähnlichen Thread gefunden aber das man mit

Delphi-Quellcode:

pub := OutlookApplication1.ActiveExplorer.CurrentFolder.Folders.Item(strAdressen);

einen Ordner im Outlook Explorer auswählen kann funktioniert bei mir nicht. Bekomme nur die Fehlermeldung das ein Objekt nicht gefunden wurde, egal ob ich meinen Lokalen Kontakte Ordner angebe oder den Kontakt Ordner in den Öffentlichen Ordnern.

Wäre nett wenn jemand ein Code Snippet oder ein kleines, gut erklärtes Tutorial für mich hätte.

lg Alex

[Borschti]

Ok den Fehler konnte ich beheben, war ein Problem mit den Zugriffsrechten, und den Kontakte Ordner auswählen in den ich die Kontakte schreiben will.
Jetzt habe ich aber das Problem das ich keine Ahnung habe wo ich die Variable angeben muss damit mir die Kontakte auch in den Öffentlichen Kontakt Ordner geschrieben werden und nicht in meinen Lokalen :/ Ich such mir hier echt nen Wolf nur leider gibt es kein bzw. kaum brauchbares Material... Wenn jemand mal etwas ähnliches geschrieben hat oder generell Erfahrungen mit dem Thema hat möge doch hier bitte mal was schreiben :(

[punkbuster2003]

Hallo Forum,

ich habe das gleiche Problem. Ich kann alles mit den Kontakten machen, ich kann Sie aber nicht in einem Öffentlichen Ordner speichern.

Gruß punkbuster2003