Нажмите Проверить настройки для проверки введенных параметров учетной записи.
diff --git a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаЭлемента/Module.bsl index 394fa45a7..96a033d2a 100644 --- a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаЭлемента/Module.bsl @@ -57,6 +57,15 @@ Элементы.ГруппаДляКогоУчетнаяЗапись.Доступность = Пользователи.ЭтоПолноправныйПользователь(); ВладелецУчетнойЗаписи = Объект.ВладелецУчетнойЗаписи; + ТребуетсяАвторизацияПриОтправкеПисем = ЗначениеЗаполнено(Объект.ПользовательSMTP); + Элементы.АвторизацияПриОтправкеПисем.Доступность = ТребуетсяАвторизацияПриОтправкеПисем; + + ШифрованиеПриОтправкеПочты = ?(Объект.ИспользоватьЗащищенноеСоединениеДляИсходящейПочты, "SSL", "Авто"); + ШифрованиеПриПолученииПочты = ?(Объект.ИспользоватьЗащищенноеСоединениеДляВходящейПочты, "SSL", "Авто"); + + СпособАвторизацииПриОтправкеПочты = ?(Объект.ТребуетсяВходНаСерверПередОтправкой, "POP", "SMTP"); + + РеквизитыТребующиеВводаПароляДляИзменения = Справочники.УчетныеЗаписиЭлектроннойПочты.РеквизитыТребующиеВводаПароляДляИзменения(); КонецПроцедуры &НаСервере @@ -136,8 +145,11 @@ Объект.ВладелецУчетнойЗаписи = Неопределено; КонецЕсли; - ТребуетсяПроверкаПароля = Объект.ВладелецУчетнойЗаписи <> ВладелецУчетнойЗаписи - Или ЗначениеЗаполнено(Объект.ВладелецУчетнойЗаписи); + ЗначенияРеквизитовПередЗаписью = Новый Структура(РеквизитыТребующиеВводаПароляДляИзменения); + ЗаполнитьЗначенияСвойств(ЗначенияРеквизитовПередЗаписью, Объект); + + ТребуетсяПроверкаПароля = ТребуетсяПроверкаПароля(Объект.Ссылка, ЗначенияРеквизитовПередЗаписью); + Если Не ПараметрыЗаписи.Свойство("ПарольВведен") И ТребуетсяПроверкаПароля Тогда Отказ = Истина; ЗапроситьПароль(ПараметрыЗаписи); @@ -203,16 +215,6 @@ Объект.АдресЭлектроннойПочты = СокрЛП(Объект.АдресЭлектроннойПочты); КонецПроцедуры -&НаКлиенте -Процедура ИспользоватьЗащищенноеСоединениеДляИсходящейПочтыПриИзменении(Элемент) - УстановитьПортИсходящейПочты(); -КонецПроцедуры - -&НаКлиенте -Процедура ИспользоватьЗащищенноеСоединениеДляВходящейПочтыПриИзменении(Элемент) - УстановитьПортВходящейПочты(); -КонецПроцедуры - &НаКлиенте Процедура ОставлятьКопииПисемНаСервереПриИзменении(Элемент) УстановитьДоступностьЭлементов(); @@ -233,11 +235,6 @@ ПарольSMTPИзменен = Истина; КонецПроцедуры -&НаКлиенте -Процедура ТребуетсяВходНаСерверПередОтправкойПриИзменении(Элемент) - Элементы.ПолучениеПисем.Доступность = ДоступноПолучениеПисем Или Объект.ТребуетсяВходНаСерверПередОтправкой; -КонецПроцедуры - &НаКлиенте Процедура ДляКогоУчетнаяЗаписьПриИзменении(Элемент) Элементы.ПользовательУчетнойЗаписи.Доступность = ВидУчетнойЗаписи = "Персональная"; @@ -249,6 +246,34 @@ ОповеститьОбИзмененииВладельцаУчетнойЗаписи(); КонецПроцедуры +&НаКлиенте +Процедура ТребуетсяВходНаСерверПередОтправкойПриИзменении(Элемент) + Элементы.ПолучениеПисем.Доступность = ДоступноПолучениеПисем Или Объект.ТребуетсяВходНаСерверПередОтправкой; +КонецПроцедуры + +&НаКлиенте +Процедура ТребуетсяАвторизацияПриОтправкеПисемПриИзменении(Элемент) + Элементы.АвторизацияПриОтправкеПисем.Доступность = ТребуетсяАвторизацияПриОтправкеПисем; +КонецПроцедуры + +&НаКлиенте +Процедура ШифрованиеПриОтправкеПочтыПриИзменении(Элемент) + Объект.ИспользоватьЗащищенноеСоединениеДляИсходящейПочты = ШифрованиеПриОтправкеПочты = "SSL"; + УстановитьПортИсходящейПочты(); +КонецПроцедуры + +&НаКлиенте +Процедура ШифрованиеПриПолученииПочтыПриИзменении(Элемент) + Объект.ИспользоватьЗащищенноеСоединениеДляВходящейПочты = ШифрованиеПриПолученииПочты = "SSL"; + УстановитьПортВходящейПочты(); +КонецПроцедуры + +&НаКлиенте +Процедура СпособАвторизацииПриОтправкеПочтыПриИзменении(Элемент) + Объект.ТребуетсяВходНаСерверПередОтправкой = ?(СпособАвторизацииПриОтправкеПочты = "POP", Истина, Ложь); + Элементы.ЛогинИПарольПриОтправкеПисем.Доступность = Не Объект.ТребуетсяВходНаСерверПередОтправкой; +КонецПроцедуры + #КонецОбласти #Область ОбработчикиКомандФормы @@ -395,4 +420,9 @@ КонецЕсли; КонецПроцедуры +&НаСервереБезКонтекста +Функция ТребуетсяПроверкаПароля(Ссылка, ЗначенияРеквизитов) + Возврат Справочники.УчетныеЗаписиЭлектроннойПочты.ТребуетсяПроверкаПароля(Ссылка, ЗначенияРеквизитов); +КонецФункции + #КонецОбласти diff --git a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Help/ru.html b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Help/ru.html index 886e78949..06df93af5 100644 --- a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Help/ru.html +++ b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Help/ru.html @@ -10,11 +10,13 @@Предназначена для ввода данных регистрации на сервисе склонений http://morpher.ru/.
-Открывается по команде Настройка доступа к сервису склонения в разделе Администрирование - Интернет-Поддержка и Сервисы.
+Открывается по команде Настройка доступа к сервису "Морфер" в разделе Администрирование - Интернет-Поддержка и Сервисы.