VPF::Адреса из адресной книги - Форум программистов

Eros

Дата 12.5.2002, 00:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 7.5.2002

Репутация: нет
Всего: нет

Напишите пожалуйста код, в котором реализуется выбирание
всех адресов с адресной книги(стандартной Windows'а и для др. программ).

Спосибо.

Vit

Дата 13.5.2002, 22:43 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

ИМХО через интерфейсы. Импортируй Type Library Outlook там есть описание интерфейса и адресной книги тоже. Пример писать в лом - но там все должно быть прозрачно - создаешь объект и пользуешь его методы. Ежели не понятно, что я написал то надо бы COM читнуть в любом букваре по программированию, а так же для ознакомления можно прочитать статью Fantasist о COM в нашем FAQ по Дельфи

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Eros

Дата 14.5.2002, 00:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 7.5.2002

Репутация: нет
Всего: нет

Спасибо. Почитаю доку.

AlexV1

Дата 5.12.2003, 07:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 50
Регистрация: 27.1.2003

Репутация: нет
Всего: нет

2 Eros: Нашел ли что-нибудь, что помогло читать адреса из Аутлука ?
Если да, то поможет ли мне это.
Моя задача: Из программы на Delphi экспортировать контакты в MS Outlook.

Если кто делал такое или может поделиться ссылками, буду премного благодарен.
Заранее благодарю.

Chess64

Дата 5.12.2003, 09:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 122
Регистрация: 25.9.2003
Где: Набережные Челны

Репутация: нет
Всего: нет

2 Eros

Цитата

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;

Могет помогет. Есть еще C:\Program Files\Common Files\Borland Shared\MSHelp\mapi.hlp

--------------------

Aleksey Semyonov aKa LfP

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »