Форум
Вход
Вход
Регистрация
Знания
1С:Предприятие
Инф. технологии
О жизни
Книга знаний
Учебные курсы
Wiki
Поиск
Секции
IT-новости
Веб-мастеринг
Администрирование
Жизнь форума
Наука и технологии
Юмор
Другие секции...
Работа
Обсуждения
Вакансии
О нас
О форуме
Правила
Рейтинг
Карта сайта
Объявления
Контакты
Имя:
Пароль:
Войти
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;
Прервать;
КонецЕсли;
КонецЦикла;
КонецФункции
Синтакс-помощник БСП
Справочник 1C разработчика с ChatGPT
Форум
|
Правила
|
Описание
|
Объявления
|
Секции
|
Поиск
|
Книга знаний
|
Вики-миста