Главная страница
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.017 c
1-71205
Goblinus
2002-08-10 11:13
2002.08.22
Пара вопросиков по PageControl


1-71127
Mars
2002-08-13 10:47
2002.08.22
Можно ли в MessageDlg писать русские заголовки?


14-71353
Nostradamus
2002-07-27 03:41
2002.08.22
А я Warcraft 3 прошёл


1-71203
nikolo
2002-08-09 12:29
2002.08.22
Как получить список функций и процедур, объявленных в DLL?


3-71036
Nikolai_S
2002-07-25 11:33
2002.08.22
Как в Access с помощью SQL-запроса сделать поле необязательным?