Neuer Kontakt in Outlook mit Delphi

[Hepdepaddel]

Zitat von rollstuhlfahrer:

und wie geht das ungefähr?

Späte Antwort - aber für Dokuzwecke vielleicht nützlich. Ich bastele gerade recht viel in Outlook herum (allerdings eher im Kalender). Das sollte klappen:

Verbindungsaufbau zu Outlook:

Delphi-Quellcode:

  // Outlook connect
  OutlookApplication1.Connect;

  // Namespace besorgen und Login
  NmSpace:=OutlookApplication1.GetNamespace('MAPI');
  NmSpace.Logon('', '', False, False);

  // Folder auswählen und anzeigen
  //Inbox:=NmSpace.GetDefaultFolder(olFolderOutbox);
  //Calendar:=NmSpace.GetDefaultFolder(olFolderCalendar);
  Contacts:=NmSpace.GetDefaultFolder(olFolderContacts);

  Inbox.Display;

Dann den Eintrag vornehmen (hier wird auch noch die Contacts-Seite von Outlook aktiv mit Display angezeigt

Delphi-Quellcode:

VAR
  CI: ContactItem;
begin
  Contacts.Display;

  CI := OutlookApplication1.CreateItem(olContactItem) as ContactItem;
  CI.CompanyName:='Delphipraxis';
  CI.FullName:='Hepdepaddel';
  CI.Save;

Am Ende dann wieder bei Outlook abmelden:

Delphi-Quellcode:

  // Abmelden aus Outlook
  NmSpace.Logoff;
  OutlookApplication1.Quit;
  OutlookApplication1.Disconnect;

Innerhalb meines Forms sind dann folgende Variablen noch definiert:

Delphi-Quellcode:

    NmSpace: Namespace;
    Inbox, Calendar, Contacts: MAPIFolder;
    MeineGefiltertenItems: Items;

Viele Grüße

Hepdepaddel