Профессия — 1С

Рукопашный бой Карташ

Категории

Работа с Outlook через COM

рубрики: 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

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

   

2018г. Профессия — 1С. Обмен опытом по программированию в 1С