1С: Отправка таблицы в PDF формате на почту

Решил разобраться с 1С бухгалтерией в целях самообразования )). Вообще начну с отправки почты ж). Для отправки сообщения я использовал готовую библиотеку ROM-Mail.dll так как родная 1С мне не понравилась, а свою писать было впадло))). Для того чтобы создать PDF документ я взял виртуальный принтер BullzipPDFPrinter, с помощью него можно отправлять любой документ на печать в BullzipPDFPrinter, а на выходе получать PDF файлик и отправлять его на почту. Вот и сам код этого чуда)

Процедура ОтправитьПочту() Если ЗагрузитьВнешнююКомпоненту("ROM-Mail.dll")=0 Тогда Сообщить("Не удалось загрузить внешнюю компоненту ROM-Mail.dll"); Возврат; КонецЕсли; Почта=СоздатьОбъект("AddIn.AddInMail"); Почта.СерверОтправки=СокрЛП("smtp.mail.ru"); Почта.ПортОтправки=СокрЛП(2525); Почта.Логин=СокрЛП("Логин"); Почта.Пароль=СокрЛП("Пароль"); Почта.АутентификацияПриОтправке="1"; Если Почта.Соединение=0 Тогда Если Почта.Подключиться("Отправка")=0 Тогда Сообщить("Не удалось подключиться к почтовому серверу","!"); Возврат; КонецЕсли; КонецЕсли; Почта.АдресОтправителя=СокрЛП("tymbys_tymbys@mail.ru"); Почта.ИмяОтправителя=СокрЛП("tymbys_tymbys@mail.ru"); Почта.АдресПолучателя=СокрЛП("tymbys@gmail.com"); Почта.Тема=СокрЛП("Тема"); Почта.Тело=""; Почта.Кодировка="windows-1251"; Почта.ТипПисьма=0; Почта.Вложения="e:\Отчет.pdf"; Если Почта.Отправить()=1 Тогда Предупреждение("Сообщение отправлено!"); Иначе Предупреждение("Не удалось отправить сообщение!"); КонецЕсли; Почта.Отключиться(); КонецПроцедуры Процедура Печать() ФС.УдалитьФайл("e:\Отчет.pdf"); Таб1=СоздатьОбъект("Таблица"); Таб1.ИсходнаяТаблица("ПриемНаРаботу"); Таб1.Вывести(); Таб1.Опции(,,,,"Опции1"); Таб1.ПараметрыСтраницы(,,,,,,,,,,,"Bullzip PDF Printer"); Принтер=СоздатьОбъект("Bullzip.PDFPrinterSettings"); Принтер.SetValue("output", "e:\Отчет.pdf"); Принтер.SetValue("ShowSaveAS", "never"); Принтер.SetValue("ShowProgress", "no"); Принтер.SetValue("ShowProgressFinished", "no"); Принтер.SetValue("ShowSettings", "never"); Принтер.SetValue("ShowPDF", "no"); Принтер.SetValue("ConfirmOverwrite","no"); Принтер.WriteSettings(); Таб1.Напечатать(0); Пока ФС.СуществуетФайл("e:\Отчет.pdf")<1 Цикл КонецЦикла; Если ФС.СуществуетФайл("e:\Отчет.pdf")=1 Тогда ОтправитьПочту(); КонецЕсли; КонецПроцедуры