Создать и отправить єлектронное письмо email программно

Вариант 1

&НаСервере
Процедура УведомитьВПисьме (ПолучательУведомления,Ошибки,ОсталосьКарточек,ОсталосьДней)
//тут массив с емаилами
СписокПолучателей	=	ОпределитьЕМаилПолучателя(ПолучательУведомления);
Если СписокПолучателей.Количество()=0 Тогда Возврат; КонецЕсли;
НовоеПисьмоИсходящее	=	Документы.ЭлектронноеПисьмоИсходящее.СоздатьДокумент();
НовоеПисьмоИсходящее.Автор	=	ПараметрыСеанса.ТекущийПользователь;
НовоеПисьмоИсходящее.УчетнаяЗапись	=	Справочники.УчетныеЗаписиЭлектроннойПочты.СистемнаяУчетнаяЗаписьЭлектроннойПочты;
НовоеПисьмоИсходящее.Дата	=	ТекущаяДата();
НовоеПисьмоИсходящее.ДатаКогдаОтправить	=	НовоеПисьмоИсходящее.Дата+3;
НовоеПисьмоИсходящее.Кодировка	=	"UTF-8";
НовоеПисьмоИсходящее.Важность	=	Перечисления.ВариантыВажностиВзаимодействия.Высокая;
НовоеПисьмоИсходящее.ТипТекста =	Перечисления.ТипыТекстовЭлектронныхПисем.ПростойТекст;
НовоеПисьмоИсходящее.ОтправительПредставление	=	"BAS УТ (торговая)";
НовоеПисьмоИсходящее.Тема	=	"ВНИМАНИЕ ! ПАКТУМ-Контрагент осталось "+ОсталосьКарточек+" карточек и "+цел(ОсталосьДней)+" дней";
НовоеПисьмоИсходящее.Текст =	Ошибки;
НовоеПисьмоИсходящее.Комментарий	=	"Создано автоматически ПАКТУМ-уведомлением: "+ТекущаяДата();
Для Каждого СтрокаПолучаетелей из СписокПолучателей Цикл
Если НЕ ПустаяСтрока(СтрокаПолучаетелей) Тогда
НоваяЗаписьОПолучателе	=	НовоеПисьмоИсходящее.ПолучателиПисьма.Добавить();
НоваяЗаписьОПолучателе.Адрес	=	СокрЛП(СтрокаПолучаетелей);
НовоеПисьмоИсходящее.СписокПолучателейПисьма	=	НовоеПисьмоИсходящее.СписокПолучателейПисьма+СокрЛП(СтрокаПолучаетелей)+";";
КонецЕсли;
КонецЦикла;
Попытка
НовоеПисьмоИсходящее.Записать(РежимЗаписиДокумента.Запись);
ПисьмоОбъект	= НовоеПисьмоИсходящее.Ссылка.ПолучитьОбъект();
ИдентификаторПисьма	= Взаимодействия.ВыполнитьОтправкуПисьма(ПисьмоОбъект);
ПисьмоОбъект.ИдентификаторСообщения = ИдентификаторПисьма;
ПисьмоОбъект.СтатусПисьма	= Перечисления.СтатусыИсходящегоЭлектронногоПисьма.Отправлено;
ПисьмоОбъект.ДатаОтправления	= ТекущаяДатаСеанса();
ПисьмоОбъект.Записать(РежимЗаписиДокумента.Запись);
Исключение
КонецПопытки;
КонецПроцедуры

Вариант 2 (без сохранения в док.ИсходящиеЭлектронныеСообщения)

ПараметрыПисьма = Новый Структура;
ПараметрыПисьма.Вставить("Кому", "denis.mamchencko@gmail.com;e.dvorkina@viatec.ua;y.trotskiy@viatec.ua");
ПараметрыПисьма.Вставить("Тема", "Механизм автоперемещения не сработал");
ПараметрыПисьма.Вставить("Тело", ОписаниеОшибки());
ПараметрыПисьма.Вставить("ТипТекста", "ПростойТекст");
Попытка
Идентификатор = РаботаСПочтовымиСообщениями.ОтправитьПочтовоеСообщение(Справочники.УчетныеЗаписиЭлектроннойПочты.СистемнаяУчетнаяЗаписьЭлектроннойПочты, ПараметрыПисьма);
Если ЗначениеЗаполнено(Идентификатор) Тогда
Отправлено = Истина;
КонецЕсли;
Исключение
КонецПопытки;