[Error] Unit1.pas(51): Undeclared identifier: 'AddressEntries'
[Error] Unit1.pas(52): Undeclared identifier: 'AddressEntry'
[Error] Unit1.pas(54): Undeclared identifier: 'Outlook'
[Error] Unit1.pas(55): Missing operator or semicolon
[Error] Unit1.pas(57): Undeclared identifier: 'AddressLists'
[Error] Unit1.pas(57): Missing operator or semicolon
[Error] Unit1.pas(58): Missing operator or semicolon
[Error] Unit1.pas(59): Missing operator or semicolon
[Error] Unit1.pas(60): ')' expected but identifier 'Name' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Pablo Madi Dias
Enviada em: terça-feira, 16 de maio de 2006 12:39
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: RES: [delphi-br] Contatos do Outlook
Qual o erro que aconteceu com a rotina do meu último post?
Eduardo Silva ® <[EMAIL PROTECTED]> escreveu: Galera, não consegui
utilizar nenhuma das duas rotinas, estou tentando pegar
a lista de contatos do meu outlook já faz um bom tempo e até agora não
consegui nenhuma rotina com sucesso. Uma vez quase consegui fazer, mas deu
erro por causa dos grupos que eu tenho na lista.
Alguém pode me dar uma mãe.
PS: a rotina que eu quase consegui não consigo mais encontra-la pra enviar
aqui....
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Pablo Madi Dias
Enviada em: terça-feira, 16 de maio de 2006 09:40
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Contatos do Outlook
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 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 >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--------------------------------------------------------------------------
--
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
__________ Informação do NOD32 1.1454 (20060321) __________
Esta mensagem foi verificada pelo NOD32 Sistema Antivírus
http://www.nod32.com.br
[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 >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
----------------------------------------------------------------------------
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
__________ Informação do NOD32 1.1454 (20060321) __________
Esta mensagem foi verificada pelo NOD32 Sistema Antivírus
http://www.nod32.com.br
[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: | |
|
Links do Yahoo! Grupos
- Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
- Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
- O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
