Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Интернет и сети \ E-mail \ Как загрузить адресную книгу

Как загрузить адресную книгу

uses Mapi;
...

procedure TfrmMain.btnOpenAddressBookClick(Sender: TObject);
var
  lhSession, rc: Cardinal;
  lpnNewRecips: PULONG;
  lppNewRecips: PMapiRecipDesc;
  lpRecips: MapiRecipDesc;
begin
  lpnNewRecips := nil;
  rc := MAPILogon(0, 'Севостьянов Игорь', '', MAPI_LOGON_UI, 0, @lhSession);
  if (rc < > SUCCESS_SUCCESS) then
    SysErrorMessage(rc);
  rc := MAPIAddress(lhSession, 0, 'Адресная книга', 0, '', 0, lpRecips, 0, 0,
    lpnNewRecips, lppNewRecips);
  if (rc < > SUCCESS_SUCCESS) then
    SysErrorMessage(rc)
  else
    rc := MAPIFreeBuffer(lppNewRecips); // free the memory used by MAPIAddress
  if (rc < > SUCCESS_SUCCESS) then
    SysErrorMessage(rc);
  rc := MAPILogoff(lhSession, 0, 0, 0);
  if (rc < > SUCCESS_SUCCESS) then
    SysErrorMessage(rc);
end;

Есть еще и в Deplhi Help C:Program FilesCommon FilesBorland SharedMSHelpmapi.hlp

Название: Как загрузить адресную книгу
Дата публикации: 2004-09-02 (2542 Прочтено)

 
 

 

Page generation 0.032 seconds