Имя: Пароль:
1C
1С v8
Работа с outlook
,
0 Олег
 
10.08.12
10:11
Коллеги, возникла необходимость получить электронный адрес сотрудника не зарегистрированного в 1С.
Как программно из outlook по ФИО сотрудника получить его e-mail?
1 andrey153
 
10.08.12
10:35
Поищи как работать с адресной книгой через Outlook.Application
2 Олег
 
10.08.12
10:57
Да в принципе уже нашёл вот: v8: Получить адреса эл. почты из outlook
Закрыть бы тему... да не знаю как и можно ли это.
3 Олег
 
10.08.12
14:28
Вот такая функция получилась:

Функция НайтиАдрес(Имя)
   
   Соединение = Новый COMОбъект("Outlook.Application");
   ПространствоИмен = Соединение.GetNameSpace("MAPI");
   АдреснаяКнига = ПространствоИмен.AddressLists("Контакты ФТ");
   
   КоличествоЗаписей = АдреснаяКнига.AddressEntries.Count();
   
   Для сч = 1 По КоличествоЗаписей Цикл
       ТекЗапись = АдреснаяКнига.AddressEntries(сч);
       ФИО = СокрЛП(Лев(ТекЗапись.Name, Найти(ТекЗапись.Name, " (")));
       //Сообщить(ФИО + Символы.Таб + ТекЗапись.Name + Символы.Таб + ТекЗапись.Address);
       Если ФИО = СокрЛП(Имя.Наименование) Тогда
           Возврат ТекЗапись.Address;
           Прервать;
       КонецЕсли;
   КонецЦикла;    
   
КонецФункции