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