usesMapi; ... 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