Leer Libreta de Direcciones de Correo de Outlock

[Efren2006]

Saludos

Amigos quisiera saber si existe alguna manera de leer las Direcciones de correos electrónicos del usuario de su libreta de direcciones de Outlook ,sea la versión que tenga instalada ,,,

OJO solo Leerla no hacerle mantenimiento....


Gracias por sus aportes

[cloayza]

Bueno...

Primero: Buscar en google
Segundo: Buscar en google
Tercero: Buscar en google

Controlling MS Outlook from Delphi XE2
read outlook contact from delphi

Bueno eso es todo...

[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;

[Efren2006]

Empezado por cloayza

Bueno...

Primero: Buscar en google
Segundo: Buscar en google
Tercero: Buscar en google

Controlling MS Outlook from Delphi XE2
read outlook contact from delphi

Bueno eso es todo...

Empezado por 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;

Gracias Amigos por los aportes....

Probare estas opciones .... a ver como me van y si es lo que necesito

Saludos