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