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