Отправка на почту с 1с

Процедура Сформировать()
	
Если ЗагрузитьВнешнююКомпоненту("DialMail.dll")=0 Тогда
Сообщить("Не удалось загрузить внешнюю компоненту DialMail.dll ");
Возврат;
Конецесли; 




//Подключаемся к почте с указанными параметрами
Почта                      = СоздатьОбъект("AddIn.SMTP");
//Почта.РабочийКаталог     = КаталогПользователя();
Почта.ИспользоватьПрокси = 0;
Почта.ИспользоватьSSL     = 1;
Почта.ВестиЛогФайл         = 0;
//Почта.ИмяЛогФайла         = КаталогПользователя()+"dialmail.smtp.log";

//МойАдрес = глПользователь.ЭлПочта;
СМТП     = "smtp.mail.ru"; 
//Логин     = глПользователь.ЭлПочта;
//Пароль     = глПользователь.Пароль;
Почта.ПочтоваяПрограмма="Client on DialMail";
Почта.MakeContentDescriptionTag = 0;
Почта.ТипТелаПисьма=0;    

ТекПисьмо = Почта.СоздатьПисьмо("*********@mail.ru","*********@tut.by",,"Отправил с 1с!",,"Я гений!",);
Если ПустоеЗначение(текписьмо)=1 тогда 
    Сообщить("Ошибка при создании письма!");
    Возврат; 
КонецЕсли;

Если Почта.Подключиться(СМТП,465,"*******@mail.ru","********",1)=0 тогда
    Сообщить("Ошибка при подключении к SMTP!");
Возврат;
КонецЕсли;

рез=Почта.ОтправитьПисьмо(,1,0);
Если рез<>1 тогда
    Сообщить("Ошибка отправки!");
    Возврат;
КонецЕсли;
Почта.Отключиться();
Почта.УдалитьПисьмоИзРабочегоКаталога(); 
КонецПроцедуры;