Outlook Kontakte lesen

[commandah]

moin.

Ich habe ein kleines Problem, ich möchte gerne die Email Adressen aus den Outlook Kontakten lesen.
Bis jetzt mache ich es so:

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);
    edit4.text:=edit4.Text+Contact.Email1Address + ';';
  end;

  Outlook := UnAssigned;

end;

Jetzt gibt es aber das Problem, das Outlook für jeden Zugriff die Frage an den Benutzer stellt, ob der Zugriff auf den Kontakt zugelassen werden soll.

Das ist für den Benutzer natürlich doof wenn er 100 Kontakte oder so hat, denn dann kommt die Frage von Outlook 100 mal.

Gibt es da noch eine andere möglichkeit? bzw kann man es irgendwie so machen, das wenn der Benutzer bei der Outlook frage auf nein klickt, das ich darauf reagieren kann und dann meine Aktion abbrechen kann, und dass wenn der Benutzer auf Ja klickt, dass Outlook die Frage nicht mehr stellt?