Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.22;
Скачать: CL | DM;

Вниз

как подгрузить адресную книгу   Найти похожие ветки 

 
Oleg_er   (2002-06-10 07:33) [0]

как подгрузить адресную книгу exchange?


 
Oleg_er   (2002-06-10 15:47) [1]

Монстры дельфы! неужели никто не знает?


 
Севостьянов Игорь ©   (2002-06-10 16:25) [2]

А какой outlock ? MS или Express ??


 
Севостьянов Игорь ©   (2002-06-10 16:59) [3]

А пока почитай http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988622975&n=14

хоть бы поискать не ленился


 
Севостьянов Игорь ©   (2002-06-10 17:04) [4]

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


 
Севостьянов Игорь ©   (2002-06-10 18:00) [5]

Ну, а вообщем вот так

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;


 
Oleg_er   (2002-06-11 06:45) [6]

спасибо большое



Страницы: 1 вся ветка

Текущий архив: 2002.08.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
1-71211
Roman1985
2002-08-10 20:41
2002.08.22
Ну помогите же мне!!!!!!!!


3-70953
SemFLY
2002-08-02 00:34
2002.08.22
TDBGrid добавление поля


1-71130
Blacki
2002-07-26 20:55
2002.08.22
Проблема с умлаутом в немецком языке


3-70990
Ag2002
2002-07-31 11:39
2002.08.22
Выбор


6-71286
atmospheric
2002-06-12 14:59
2002.08.22
HTTP запрос