рубрики: COM | Дата: 17 февраля, 2014
Подключаемся к Outlook через COM соединение.
Попытка
Outlook = Новый COMОбъект("Outlook.Application");
Исключение
Сообщить("Не удалось подключиться к Outlook", СтатусСообщения.Внимание);
Возврат;
КонецПопытки;
Создаем таблицу значений и используя методы созданного объекта считываем данные из адрессной книги Outlook в эту таблицу.
ТаблицаИзАутлук = Новый ТаблицаЗначений;
ТаблицаИзАутлук.Колонки.Добавить("Фамилия");
ТаблицаИзАутлук.Колонки.Добавить("ИмяОтчество");
ТаблицаИзАутлук.Колонки.Добавить("ФИО");
ТаблицаИзАутлук.Колонки.Добавить("Почта");
ТаблицаИзАутлук.Колонки.Добавить("Организация");
ТаблицаИзАутлук.Колонки.Добавить("Подразделение");
ТаблицаИзАутлук.Колонки.Добавить("Должность");
СписокСсылок = Outlook.GetNamespace("MAPI").GetGlobalAddressList().AddressEntries;
Для Счетчик = 1 По СписокСсылок.Count Цикл
КонтактСсылка = СписокСсылок.Item(Счетчик);
Если КонтактСсылка.AddressEntryUserType = 0 Тогда
Контакт = КонтактСсылка.GetExchangeUser();
НоваяСтрока = ТаблицаИзАутлук.Добавить();
НоваяСтрока.Фамилия = СокрЛП(Контакт.LastName);
НоваяСтрока.ИмяОтчество = СтрЗаменить(Контакт.FirstName, " ", "");
НоваяСтрока.ФИО = СтрЗаменить(Контакт.Name, " ", "");
НоваяСтрока.Почта = СокрЛП(Контакт.PrimarySmtpAddress);
НоваяСтрока.Организация = СокрЛП(Контакт.CompanyName);
НоваяСтрока.Подразделение = СокрЛП(Контакт.Department);
НоваяСтрока.Должность = СокрЛП(Контакт.JobTitle);
КонецЕсли;
КонецЦикла;
Обработка использовалась для версии Outlook из пакета MS Office2010
Добавить комментарий