Отправка документов по электронной почте

&НаКлиенте
Процедура Печать(Команда,Массив,ТабДок)
    ТабДок = Новый ТабличныйДокумент;
    Массив = Новый Массив; 
    Для каждого ИдентификаторСтроки из  Элементы.СнятиеМаяков.ВыделенныеСтроки Цикл
        Массив.Добавить(Элементы.СнятиеМаяков.ДанныеСтроки(ИдентификаторСтроки));     
    КонецЦикла;
    ПечатьНаСервере(ТабДок,Массив);
    ТабДок.Показать("Макет");
КонецПроцедуры


&НаСервере
Функция СформироватьПараметрыПисьма(АдресаКоторымОтправляемПисьма,ТабДок)
    
    ФайлВФорматеPDF = ПолучитьИмяВременногоФайла(".PDF");
    ТабДок.Записать(ФайлВФорматеPDF, ТипФайлаТабличногоДокумента.PDF);
    Вложения = Новый Соответствие;
    Вложения.Вставить(" Заявление ООО "  " +"от "+ Формат(текущаяДата(),"ДФ=dd.MM.yyyy")+".pdf", ФайлВФорматеPDF);
        
    УчетнаяЗапись    = Справочники.УчетныеЗаписиЭлектроннойПочты.СистемнаяУчетнаяЗаписьЭлектроннойПочты;
    ПараметрыПисьма = Новый Структура;
    ПараметрыПисьма.Вставить("Кому", АдресаКоторымОтправляемПисьма);  
    ПараметрыПисьма.Вставить("УчетнаяЗапись", УчетнаяЗапись);                                                               
    ПараметрыПисьма.Вставить("Тема", "Заявление ООО """"Лизинг трейд""");    
    ПараметрыПисьма.Вставить("Тело", "");
    ПараметрыПисьма.Вставить("ТипТекста", "ПростойТекст");
    ПараметрыПисьма.Вставить("Вложения", Вложения);
    
    Возврат ПараметрыПисьма;
    
КонецФункции


&НаКлиенте
Процедура ОтправитьПоПочте(Команда,ТабДок,Массив)
    
    АдресаКоторымОтправляемПисьма = "l@trade.ru";
       ПараметрыПисьма = СформироватьПараметрыПисьма(АдресаКоторымОтправляемПисьма,ТабДок);
    Попытка    
        ОтправитьПоПочтеНаСервере(ПараметрыПисьма);
    Исключение    
        Сообщить("Не удалось отправить письма по причине " + ОписаниеОшибки());
    КонецПопытки;
КонецПроцедуры

&НаСервере
Процедура ОтправитьПоПочтеНаСервере(ПараметрыПисьма)
    
    
    УчетнаяЗапись= ПараметрыПисьма.УчетнаяЗапись;
    РаботаСПочтовымиСообщениями.ОтправитьПочтовоеСообщение(УчетнаяЗапись, ПараметрыПисьма);
        
КонецПроцедуры


&НаСервере
Процедура ПечатьНаСервере(ТабДок,Массив)
    Обработка =  РеквизитФормыВЗначение("Объект");
    Макет = Обработка.ПолучитьМакет("Макет");
    //Область = Макет.ПолучитьОбласть("О");
    //Таб.Вывести(Область);
    Область = Макет.ПолучитьОбласть("Основа");
    Область.Параметры.Дата= Формат(ТекущаяДата(),"ДФ=dd.MM.yyyy");
    ТабДок.Вывести(Область);
    Область = Макет.ПолучитьОбласть("СтрокаТаблицы");
    ТабДок.Вывести(Область);
    Область = Макет.ПолучитьОбласть("Таблица");
    Индекс = 0;
    Количество=Массив.Количество();
         Пока индекс < Количество  цикл
        Область.Параметры.Пр = Массив[индекс].Предмет;
        Область.Параметры.ВИН = Массив[индекс].ПредметВИН;
        Индекс = Индекс+1;
        ТабДок.Вывести(Область);
    КонецЦикла;
          
    Область = Макет.ПолучитьОбласть("Подвал");
    ТабДок.Вывести(Область);
        
КонецПроцедуры;