Abrir o cat�logo de endere�os do Outlook

Question

Pessoal, gostaria de saber se algu�m j� conseguiu abrir o cat�logo de endere�os do outlook, ou listar os endere�os contidos nele.

Estava procurando algo sem usar componente de terceiros.

Obrigado,
Danilo Rog�rio

Macario · Answer

Ol� estou com a mesma necessidade, Abrir o Cat�logo de Endere�os do Outlook....

Onjahyr · Answer

Peguei a dica no ActiveDelphi, n�o dou suporte! N�o fui eu que fiz e n�o testei, mas l� indica que funcionou. Teste e por gentileza volte aqui e diga se funcionou ou n�o. Blz.
__________________________________________

Adicionei um TOutlookApplication da palheta Servers, um bot�o e um ListBox ao meu form.. ae, no bot�o, fiz:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  NameSpace,
  Contacts,
  Contact : OleVariant;
  iLoopFor : Integer;
begin
   NameSpace := OutlookApplication1.GetNamespace(�MAPI�);
   Contacts := NameSpace.GetDefaultFolder( olFolderContacts );
   ListBox1.Items.Clear;
   for iLoopFor := 1 to Contacts.Items.Count do
      begin
        Contact := Contacts.Items.Item(iLoopFor);
        ListBox1.Items.Add( Contact.FullName + � <� +
        Contact.Email1Address + �> �);
      end;
end;

F�rum Abrir o cat�logo de endere�os do Outlook #284631