Создать и отправить письмо программно

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