Отправить письмо По Электронной Почте

&НаКлиенте
Процедура ОтправитьПоЭлектроннойПочте(Команда)


ОтображениеСостояния = Элементы.ОтчетТабличныйДокумент.ОтображениеСостояния;
Если ОтображениеСостояния.Видимость = Истина
И ОтображениеСостояния.ДополнительныйРежимОтображения = ДополнительныйРежимОтображения.Неактуальность Тогда
ТекстВопроса = НСтр("ru = 'Отчет не сформирован. Сформировать?'");
Обработчик = Новый ОписаниеОповещения("ОтправитьПоЭлектроннойПочтеЗавершение", ЭтотОбъект);
ПоказатьВопрос(Обработчик, ТекстВопроса, РежимДиалогаВопрос.ДаНет, 60, КодВозвратаДиалога.Да);
Иначе
ПоказатьДиалогОтправкиПоЭлектроннойПочте();
КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура ПоказатьДиалогОтправкиПоЭлектроннойПочте()
ОписаниеОповещения = Новый ОписаниеОповещения("ПоказатьДиалогОтправкиПоЭлектроннойПочтеЗавершение", ЭтотОбъект);
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСПочтовымиСообщениями") Тогда
МодульРаботаСПочтовымиСообщениямиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСПочтовымиСообщениямиКлиент");
МодульРаботаСПочтовымиСообщениямиКлиент.ПроверитьНаличиеУчетнойЗаписиДляОтправкиПочты(ОписаниеОповещения);
КонецЕсли;
КонецПроцедуры



&НаКлиенте
Процедура ПоказатьДиалогОтправкиПоЭлектроннойПочтеЗавершение(УчетнаяЗаписьНастроена, ДополнительныеПараметры) Экспорт
Если УчетнаяЗаписьНастроена <> Истина Тогда
Возврат;
КонецЕсли;

ТабличныеДокументы = Новый СписокЗначений;
ТабличныеДокументы.Добавить(ЭтотОбъект.ОтчетТабличныйДокумент, ЭтотОбъект.ОтчетНаименованиеТекущегоВарианта);

ФормаЗаголовок = СтрЗаменить(НСтр("ru = 'Отправка отчета ""%1"" по почте'"), "%1", ЭтотОбъект.ОтчетНаименованиеТекущегоВарианта);

ПараметрыФормы = Новый Структура;
ПараметрыФормы.Вставить("ТабличныеДокументы", ТабличныеДокументы);
ПараметрыФормы.Вставить("Тема", ЭтотОбъект.ОтчетНаименованиеТекущегоВарианта);
ПараметрыФормы.Вставить("Заголовок", ФормаЗаголовок);

ОткрытьФорму("ОбщаяФорма.ОтправкаТабличныхДокументовПоПочте", ПараметрыФормы);
КонецПроцедуры