Контакты оутлука

[Sergey2]

А как можно получить доступ в контактам оутлука?

[_SERGEYX_]

Это из Delphi World. Я не проверял.

Получить все контакты Outlook
***************************

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);
     {now you can read any property of contact. For example, full name and 
    email address}
     ShowMessage(Contact.FullName + ' <' + Contact.Email1Address + '>');
   end;

   Outlook := UnAssigned;
 end;

[Sergey2]

Спасибо. Работает. Только один вопрос остался.... а как узнать все эти пропертисы? FullName и EmailAddress - понятно, а дальше?

[Sergey2]

А как фотку контакта получить? Ау