Форум: "Система";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.007 c