У меня есть приложение Delphi XE, и я хотел бы открыть диалоговое окно адресной книги, которое Outlook использует в моем приложении Delphi. Я предполагаю, что существуют классы COM для поддержки этого? Как лучше всего это сделать? Платформа Win7-64 с Outlook 2010.
ТИА
Отказ от ответственности. Определенно можно сделать это через COM, но Outlook будет отображать предупреждения о том, что стороннее приложение обращается к адресной книге (и это правильно). Если вы хотите избежать этих предупреждений, вы можете запустить код из надстройки Outlook, прибегнуть к MAPI или использовать Outlook Redemption, который представляет собой продвинутую оболочку MAPI, похожую на объектную модель Outlook.
Объектная модель Outlook предлагает диалоговое окно SelectNamesDialog. диалоговое окно для отображения адресной книги. Он легко настраивается, и вы также можете инициализировать его с помощью настраиваемых наборов адресов.
В качестве небольшого примера, вот код, который открывает адресную книгу в режиме множественного выбора. Для краткости используется позднее связывание (OleVariants). Вероятно, вы захотите использовать раннее связывание в производственном коде.
procedure TForm1.Button1Click(Sender: TObject);
var
application: OleVariant;
dialog: OleVariant;
i: Integer;
recipients: String;
recipient: OleVariant;
begin
application := createOleObject( 'Outlook.Application' );
// Obtain the dialog
dialog := application.session.getSelectNamesDialog;
// Only show the a single 'add' field, multiselect
dialog.setDefaultDisplayMode( 6 ); // 6 = olDefaultDelegates
// Display the dialog
dialog.display;
// Display selection
recipients := '';
for i := 1 to dialog.recipients.count do
begin
recipient := dialog.recipients.item( i );
recipients := recipients + recipient.name + #13#10;
end;
showMessage( recipients );
end;
Чтобы сделать что-то подобное, вам необходимо поддерживать расширенный интерфейс MAPI.
Вот ссылка на компонент, который поддерживает это в Win7-64 Outlook-2010.
Поддерживает выполнение диалогов адресной книги.
