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

Советы » 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

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

Другое по теме:

Категории

Статьи

Советы