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

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


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


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

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


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