Leer Libreta de Direcciones de Correo de Outlock

[pacopenin]

Como ejemplo sencillito igual te sirve esto:

Código Delphi [-]

const
  olFolderContacts = $0000000A;
var
  outlook, NameSpace, Contacts, Contact: OleVariant;
  i, p: Integer;

....

   outlook := CreateOleObject('Outlook.Application');
   try
    NameSpace := outlook.GetNameSpace('MAPI');

    Contacts := NameSpace.GetDefaultFolder(olFolderContacts);

    for i := 1 to Contacts.Items.Count do
     begin

     ..... aquí haz lo que necesites

     end;
   finally
    Outlook.Quit;
    Outlook := UnAssigned;
   end;