Re: RES: [delphi-br] Contatos do Outlook

Tue, 16 May 2006 05:40:23 -0700

Gerhard, realmente esta rotina funciona, mas apenas para a pasta de contatos... na verdade, estou usando um Outlook conectado a um servidor Exchange corporativo e a intensão é acessar a lista de endereços global... após postar esta mensagem, eu consegui uma semi-solução (pois a lista global é muito grande) e ainda quero adapta-la para melhorar o desempenho, mas estou fazendo o seguinte:
  
  procedure Lista_Contatos;
var
    olNameSpace     : NameSpace;
    OlListaEnd      : AddressList;
    OlItensEnd      : AddressEntries;
    olContato       : AddressEntry;
begin
    Outlook.Connect;
    olNameSpace := Outlook.GetNamespace('MAPI');
    olNameSpace.Logon('', '', False, False);
    olListaEnd := olNameSpace.AddressLists.Item(3); //Três é o índice da lista global no meu Outlook. A lista padrão do usuário é a indice 1... também pode utilizar o nome da lista, ao invés do número...
    olItensEnd := olListaEnd.AddressEntries;
    olContato  := olItensEnd.Item(1);//Estou pegando apenas o primeiro cara, para teste...
    showmessage(olContato.Name);
    showmessage(olListaEnd.Name);
end;
  
  []´s

Gerhard Roger Nack <[EMAIL PROTECTED]> escreveu:
  Para ler o catalogo do exchange, vc pode usar a rotina abaixo:





Outlook := TOutlookApplication.Create(Application);



Outlook.Connect;

NmSpace := Outlook.GetNamespace('MAPI');

NmSpace.Logon(aUser, aPass, False, False);

ContactsFolder := NmSpace.GetDefaultFolder(olFolderContacts);

for i := 1 to ContactsFolder.Items.Count do

with (ContactsFolder.Items.Item(i) as ContactItem) do

begin

ShowMessage(FullName + ' - ' + Email1Address);

end;



Outlook.Free;



[ ] s



Gerhard Roger Nack

[EMAIL PROTECTED]





________________________________

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Filipe Xavier Ramalho
Enviada em: segunda-feira, 15 de maio de 2006 16:56
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Contatos do Outlook



Existe um driver OLEDB para você acessar os dados do Outlook. Só não sei te
dar detalhes porque nunca utilizei, mas certamente alguém aqui na lista vai
complementar a minha informação.

Filipe


-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de pablomadias
Enviada em: segunda-feira, 15 de maio de 2006 16:44
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Contatos do Outlook

Pessoal, alguém por ai saberia me explicar como faço para abrir no
delphi o catálogo de endereços de um servidor Exchange? Seria através
do OutlookApplication? O que devo fazer?

[]´s





[As partes desta mensagem que não continham texto foram removidas]



--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>



Links do Yahoo! Grupos











Abraços,

Pablo Madi Dias
+55 21 8866-4418
           
---------------------------------
Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz.

[As partes desta mensagem que não continham texto foram removidas]



--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]


Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE

Links do Yahoo! Grupos

Responder a