Каталог решений - Отправка письма на электронную почту

Описание:

При открытии обработки адрес отправителя заполняется по умолчанию системной учетной записью электронной почты. Для отправки письма указываем получателей через точку с запятой, заполняем тему и тело письма.

По нажатию кнопки "Отправить письмо" формируется структура письма, вызов общего модуля "РаботаСПочтовымиСообщениями":

Функция ОтправитьПисьмоСервер()

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


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

Обработка протестирована на конфигурации Управление торговлей 11.5.7.294.