Коллеги, возникла необходимость получить электронный адрес сотрудника не зарегистрированного в 1С.
Как программно из outlook по ФИО сотрудника получить его e-mail?
Для сч = 1 По КоличествоЗаписей Цикл
ТекЗапись = АдреснаяКнига.AddressEntries(сч);
ФИО = СокрЛП(Лев(ТекЗапись.Name, Найти(ТекЗапись.Name, " (")));
//Сообщить(ФИО + Символы.Таб + ТекЗапись.Name + Символы.Таб + ТекЗапись.Address);
Если ФИО = СокрЛП(Имя.Наименование) Тогда
Возврат ТекЗапись.Address;
Прервать;
КонецЕсли;
КонецЦикла;
КонецФункции
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший