Galera, encontrei a dica abaixo pra pegar os contatos do Outlook, os nomes e
os endereços de e-mail são exibidos em um listbox, só que em determinado
momento me da o seguinte erro:
Method 'FullName' not supported by automation object
Que erro é esse ?
uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
const
olFolderContacts = $0000000A;
var
Outlook, NameSpace, Contacts, Contact : OleVariant;
i : Integer;
begin
Outlook := CreateOleObject('Outlook.Application');
NameSpace := Outlook.GetNameSpace('MAPI');
Contacts := NameSpace.GetDefaultFolder(olFolderContacts);
for i := 1 to Contacts.Items.Count do
begin
Contact := Contacts.Items.Item(i);
{agora podemos ler qualquer propriedade do contato. Por exemplo, nome
completo e endereço eletrônico}
ListBox1.Items.Add(Contact.FullName + ' <' + Contact.Email1Address +
'>');
end;
Outlook := UnAssigned;
end;
~\\|//~
-(o o)-
o--------------oOOOo--(_)--oOOOo-------------o
| |
| Eduardo de Almeida Silva |
| Câmara Municipal de Lençóis Paulista |
| [EMAIL PROTECTED] - (14)3263-0326 |
| |
| .oooO Oooo. |
o----------------( )---( )---------------o
\ ( ) /
\_) (_/
--
<<<<< 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] ou [EMAIL PROTECTED]
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:
http://br.yahoo.com/info/utos.html
