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

 

{codecitation class="brush: pascal; gutter: false;" width="600px"}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);
 

{/codecitation}

Есть еще и в Deplhi Help C:\Program Files\Common Files\Borland Shared\MSHelp\mapi.hlp

Добавить комментарий