|
E-mail для отправки сообщения в отчете | ☑ | ||
|---|---|---|---|---|
|
0
Casper211
25.03.17
✎
23:01
|
Сделал отчет. Хочу отправить отчет через электронку. Проблема в автоматическом подтягивании элетронной почты получателя (получатель это параметр СКД.Контрагент). Нашел в общей форме отчетов кнопку для отправки сообщений. Как туда запихнуть этого получателя?? Как сделать чтобы автоматически подтягиваться электронная почта и сам контрагент??
|
|||
|
1
Casper211
25.03.17
✎
23:01
|
&НаКлиенте
Процедура ОтправитьПоЭлектроннойПочте(Команда) ОтображениеСостояния = Элементы.Результат.ОтображениеСостояния; Если ОтображениеСостояния.Видимость = Истина И ОтображениеСостояния.ДополнительныйРежимОтображения = ДополнительныйРежимОтображения.Неактуальность Тогда ТекстВопроса = НСтр("ru='Отчет не сформирован. Сформировать?';uk='Звіт не сформований. Сформувати?'"); Обработчик = Новый ОписаниеОповещения("ОтправитьПоЭлектроннойПочтеЗавершение", ЭтотОбъект); ПоказатьВопрос(Обработчик, ТекстВопроса, РежимДиалогаВопрос.ДаНет, 60, КодВозвратаДиалога.Да); Иначе ПоказатьДиалогОтправкиПоЭлектроннойПочте(); КонецЕсли; КонецПроцедуры &НаКлиенте Процедура ПоказатьДиалогОтправкиПоЭлектроннойПочте() ТабличныеДокументы = Новый СписокЗначений; ТабличныеДокументы.Добавить(ЭтотОбъект.Результат, ЭтотОбъект.НаименованиеТекущегоВарианта); ФормаЗаголовок = СтрЗаменить(НСтр("ru='Отправка отчета ""%1"" по почте';uk='Відправлення звіту ""%1"" поштою'"), "%1", ЭтотОбъект.НаименованиеТекущегоВарианта); ПараметрыФормы = Новый Структура; ПараметрыФормы.Вставить("ТабличныеДокументы", ТабличныеДокументы); ПараметрыФормы.Вставить("Тема", ЭтотОбъект.НаименованиеТекущегоВарианта); ПараметрыФормы.Вставить("Заголовок", ФормаЗаголовок); ОткрытьФорму("ОбщаяФорма.ОтправкаТабличныхДокументовПоПочте", ПараметрыФормы,,, ); КонецПроцедуры &НаКлиенте Процедура ОтправитьПоЭлектроннойПочтеЗавершение(Ответ, ДополнительныеПараметры) Экспорт Если Ответ = КодВозвратаДиалога.Да Тогда ПоказатьДиалогОтправкиПоЭлектроннойПочте(); КонецЕсли; КонецПроцедуры В печатной форме в документах это делает вот эта процедура в общем модуле "формирование печатных форм". ЗаполнитьПараметрыОтправки(ПараметрыОтправки, ДанныеОбъектовПечати, КоллекцияПечатныхФорм) |
| Форум | Правила | Описание | Секции | Поиск |