Abrir o catálogo de endereços do Outlook

Delphi

14/06/2005

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


Danilorsa

Danilorsa

Curtidas 0

Respostas

Macario

Macario

14/06/2005

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


GOSTEI 0
Onjahyr

Onjahyr

14/06/2005

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;



GOSTEI 0
POSTAR