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