Доступные учетные записи. Получить доступные учетные записи электронной почты.
// Получить доступные учетные записи электронной почты.
//
// Параметры:
// ДляОтправки - Булево - выбирать только учетные записи, настроенные для отправки почты.
// ДляПолучения - Булево - выбирать только учетные записи, настроенные на получение почты.
// ВключатьСистемнуюУчетнуюЗапись - Булево - включать системную учетную запись, если настроена для отправки/получения.
//
// Возвращаемое значение:
// ДоступныеУчетныеЗаписи - ТаблицаЗначений - описание учетных записей:
// Ссылка - СправочникСсылка.УчетныеЗаписиЭлектроннойПочты - учетная запись;
// Наименование - Строка - наименование учетной записи;
// Адрес - Строка - адрес электронной почты.
//
Функция ДоступныеУчетныеЗаписи(Знач ДляОтправки = Неопределено,
Знач ДляПолучения = Неопределено,
Знач ВключатьСистемнуюУчетнуюЗапись = Истина) Экспорт
Если Не ПравоДоступа("Чтение", Метаданные.Справочники.УчетныеЗаписиЭлектроннойПочты) Тогда
Возврат Новый ТаблицаЗначений;
КонецЕсли;
ТекстЗапроса =
"ВЫБРАТЬ РАЗРЕШЕННЫЕ
| УчетныеЗаписиЭлектроннойПочты.Ссылка КАК Ссылка,
| УчетныеЗаписиЭлектроннойПочты.Наименование КАК Наименование,
| УчетныеЗаписиЭлектроннойПочты.АдресЭлектроннойПочты КАК Адрес,
| ВЫБОР
| КОГДА УчетныеЗаписиЭлектроннойПочты.Ссылка = ЗНАЧЕНИЕ(Справочник.УчетныеЗаписиЭлектроннойПочты.СистемнаяУчетнаяЗаписьЭлектроннойПочты)
| ТОГДА 0
| ИНАЧЕ 1
| КОНЕЦ КАК Приоритет
|ИЗ
| Справочник.УчетныеЗаписиЭлектроннойПочты КАК УчетныеЗаписиЭлектроннойПочты
|ГДЕ
| УчетныеЗаписиЭлектроннойПочты.ПометкаУдаления = ЛОЖЬ
| И ВЫБОР
| КОГДА &ДляОтправки = НЕОПРЕДЕЛЕНО
| ТОГДА ИСТИНА
| ИНАЧЕ УчетныеЗаписиЭлектроннойПочты.ИспользоватьДляОтправки = &ДляОтправки
| КОНЕЦ
| И ВЫБОР
| КОГДА &ДляПолучения = НЕОПРЕДЕЛЕНО
| ТОГДА ИСТИНА
| ИНАЧЕ УчетныеЗаписиЭлектроннойПочты.ИспользоватьДляПолучения = &ДляПолучения
| КОНЕЦ
| И ВЫБОР
| КОГДА &ВключатьСистемнуюУчетнуюЗапись
| ТОГДА ИСТИНА
| ИНАЧЕ УчетныеЗаписиЭлектроннойПочты.Ссылка <> ЗНАЧЕНИЕ(Справочник.УчетныеЗаписиЭлектроннойПочты.СистемнаяУчетнаяЗаписьЭлектроннойПочты)
| КОНЕЦ
| И УчетныеЗаписиЭлектроннойПочты.АдресЭлектроннойПочты <> """"
| И ВЫБОР
| КОГДА УчетныеЗаписиЭлектроннойПочты.ИспользоватьДляПолучения
| ТОГДА УчетныеЗаписиЭлектроннойПочты.СерверВходящейПочты <> """"
| ИНАЧЕ ИСТИНА
| КОНЕЦ
| И ВЫБОР
| КОГДА УчетныеЗаписиЭлектроннойПочты.ИспользоватьДляОтправки
| ТОГДА УчетныеЗаписиЭлектроннойПочты.СерверИсходящейПочты <> """"
| ИНАЧЕ ИСТИНА
| КОНЕЦ
| И (УчетныеЗаписиЭлектроннойПочты.ВладелецУчетнойЗаписи = ЗНАЧЕНИЕ(Справочник.Пользователи.ПустаяСсылка)
| ИЛИ УчетныеЗаписиЭлектроннойПочты.ВладелецУчетнойЗаписи = &ТекущийПользователь)
|
|УПОРЯДОЧИТЬ ПО
| Приоритет,
| Наименование";
Запрос = Новый Запрос;
Запрос.Текст = ТекстЗапроса;
Запрос.Параметры.Вставить("ДляОтправки", ДляОтправки);
Запрос.Параметры.Вставить("ДляПолучения", ДляПолучения);
Запрос.Параметры.Вставить("ВключатьСистемнуюУчетнуюЗапись", ВключатьСистемнуюУчетнуюЗапись);
Запрос.Параметры.Вставить("ТекущийПользователь", Пользователи.ТекущийПользователь());
Возврат Запрос.Выполнить().Выгрузить();
КонецФункции
///////////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2019, ООО 1С-Софт
// Все права защищены. Эта программа и сопроводительные материалы предоставляются
// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
// Текст лицензии доступен по ссылке:
// https://creativecommons.org/licenses/by/4.0/legalcode
///////////////////////////////////////////////////////////////////////////////////////////////////////
ПолучитьДоступныеУчетныеЗаписиДляОтправки (БСП)
ЕстьДоступныеУчетныеЗаписиДляОтправки (БСП)
ДоступноПравоДобавленияУчетныхЗаписей (БСП)
ОтправитьЗагрузитьПочтуПользователя (БСП)
ПроверитьСистемнаяУчетнаяЗаписьДоступна (БСП)