Проверить наличие учетной записи для отправки почты. Если у пользователя нет настроенной учетной записи для отправки писем, то в зависимости от прав либо показывает
// Если у пользователя нет настроенной учетной записи для отправки писем, то в зависимости от прав либо показывает
// помощник настройки новой учетной записи, либо выводит сообщение о невозможности отправки.
// Предназначена для сценариев, в которых требуется выполнить настройку учетной записи перед запросом дополнительных
// параметров отправки.
//
// Параметры:
// ОбработчикРезультата - ОписаниеОповещение - процедура, в которую необходимо передать выполнение кода после проверки.
// В качестве результата возвращается Истина, если есть доступная учетная
// запись для отправки почты. Иначе возвращается Ложь.
Процедура ПроверитьНаличиеУчетнойЗаписиДляОтправкиПочты(ОбработчикРезультата) Экспорт
Если РаботаСПочтовымиСообщениямиВызовСервера.ЕстьДоступныеУчетныеЗаписиДляОтправки() Тогда
ВыполнитьОбработкуОповещения(ОбработчикРезультата, Истина);
Иначе
Если РаботаСПочтовымиСообщениямиВызовСервера.ДоступноПравоДобавленияУчетныхЗаписей() Тогда
ОткрытьФорму("Справочник.УчетныеЗаписиЭлектроннойПочты.Форма.ПомощникНастройкиУчетнойЗаписи",
Новый Структура("КонтекстныйРежим", Истина), , , , , ОбработчикРезультата);
Иначе
ТекстСообщения = НСтр("ru = 'Для отправки письма требуется настройка учетной записи электронной почты.
|Обратитесь к администратору.'");
ОписаниеОповещения = Новый ОписаниеОповещения("ПроверитьНаличиеУчетнойЗаписиДляОтправкиПочтыЗавершение", ЭтотОбъект, ОбработчикРезультата);
ПоказатьПредупреждение(ОписаниеОповещения, ТекстСообщения);
КонецЕсли;
КонецЕсли;
КонецПроцедуры
///////////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2019, ООО 1С-Софт
// Все права защищены. Эта программа и сопроводительные материалы предоставляются
// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
// Текст лицензии доступен по ссылке:
// https://creativecommons.org/licenses/by/4.0/legalcode
///////////////////////////////////////////////////////////////////////////////////////////////////////
ПроверитьНаличиеУчетнойЗаписиДляОтправкиПочтыЗавершение (БСП)
ПроверитьВозможностьОтправкиИПолученияЭлектроннойПочты (БСП)
ПолучитьДоступныеУчетныеЗаписиДляОтправки (БСП)
ВладельцыУчетныхЗаписейЭлектроннойПочты (БСП)