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

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

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

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com