Описание:
При открытии обработки адрес отправителя заполняется по умолчанию системной учетной записью электронной почты. Для отправки письма указываем получателей через точку с запятой, заполняем тему и тело письма.
По нажатию кнопки "Отправить письмо" формируется структура письма, вызов общего модуля "РаботаСПочтовымиСообщениями":
Функция ОтправитьПисьмоСервер()
Письмо = ПодготовитьПисьмо();
ответ = Новый Структура("ОК, ТекстОшибки", Истина, "");
Попытка
РаботаСПочтовымиСообщениями.ОтправитьПисьмо(Объект.УчетнаяЗапись, Письмо);
Исключение
ответ.ОК = Ложь;
ответ.ТекстОшибки = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
КонецПопытки;
Возврат ответ;
КонецФункции
Функция ПодготовитьПисьмо()
получатели = Новый Массив;
получатели_1 = СтрРазделить(СОКРЛП(Объект.Кому), ";", Ложь);
Для каждого адресат Из получатели_1 Цикл
Кому = Новый Структура("Адрес, Представление", СОКРЛП(адресат), "");
получатели.Добавить(Кому);
КонецЦикла;
ПараметрыПисьма = Новый Структура;
ПараметрыПисьма.Вставить("Кому", Получатели);
ПараметрыПисьма.Вставить("ПолучателиСообщения",Получатели);
ПараметрыПисьма.Вставить("Тема", Объект.Тема);
ПараметрыПисьма.Вставить("Тело", Объект.ТекстПисьма);
Возврат РаботаСПочтовымиСообщениями.ПодготовитьПисьмо(Объект.УчетнаяЗапись, ПараметрыПисьма);
КонецФункции
Обработка протестирована на конфигурации Управление торговлей 11.5.7.294.
Вступайте в нашу телеграмм-группу Инфостарт
