Outlook E-Mailadressen importieren

[capo]

Delphi-Quellcode:

procedure TForm1.GetContacsEmail;
const
  olFolderContacts = $0000000A;
var
  outlook, NameSpace, Contacts, Contact: OleVariant;
  i: Integer;
begin
  outlook := CreateOleObject('Outlook.Application');
  NameSpace := outlook.GetNameSpace('MAPI');
  Contacts := NameSpace.GetDefaultFolder(olFolderContacts);
  for i := 1 to Contacts.Items.Count do
  begin
    Contact := Contacts.Items.Item(i);
    Memo1.text := Memo1.Text + Contact.Email1Address + ';';
  end;
  Outlook := UnAssigned;
end;

Mit diesem Code lasse ich mir alle E-Mailadressen aus Outlook anzeigen.
Wie kann ich diese E-Mailadressen wieder importieren?
Der Hintergrund ist der, dass ich die Adressen in einem anderen Programm bearbeiten will und dannn wieder in Outlook importieren will.

Hat jemand eine Ahnung oder ein Tutorial darüber?

Freundliche Grüsse vom Capo

[Grolle]

Hallo,

bei den Schweizern findet man einiges dazu:
http://www.swissdelphicenter.ch/de/showcode.php?id=1845
oder
http://www.swissdelphicenter.ch/de/showcode.php?id=795

Viele Grüße ...

[capo]

Hallo, danke für deine Antwort.
Es geht mir aber nur um die E-Mailadressen, die übrigen Daten sollen davon unberührt bleiben.

Memo1.text := Memo1.Text + Contact.Email1Address + ';'; Bekomme die Mails im Memo angezeigt, wie bekomme ich die Mails aus dem Memo wieder nach Outlook?

Gruss Capo