| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как подгрузить адресную книгу [D5, Win95/98, NT4, Win2k]
Oleg_er © (2002-06-10 07:33:00)как подгрузить адресную книгу exchange?
Oleg_er (2002-06-11 06:45:00) [1]спасибо большое
Севостьянов Игорь (2002-06-10 18:00:00) [2]Ну, а вообщем вот так
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;
Севостьянов Игорь (2002-06-10 17:04:00) [3]Есть еще и в Deplhi Help
C:\Program Files\Common Files\Borland Shared\MSHelp\mapi.hlp
Севостьянов Игорь (2002-06-10 16:59:00) [4]А пока почитай http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988622975&n=14
хоть бы поискать не ленился
Севостьянов Игорь (2002-06-10 16:25:00) [5]А какой outlock ? MS или Express ??
Oleg_er (2002-06-10 15:47:00) [6]Монстры дельфы! неужели никто не знает?
| |
