7.7 Почта

Почему не отправляет письмо? Пишет ошибку: Не удалось отправить сообщение

Код:

 
Процедура ОтправитьПочту()

//Пытаемся подключить компоненту. она должна находится в каталоге программы или каталоге базы
Если ЗагрузитьВнешнююКомпоненту("ROM-Mail.dll")=0 Тогда
Сообщить("Не удалось загрузить внешнюю компоненту ROM-Mail.dll");
Возврат;
Конецесли;   


//Подключаемся к почте с указанными параметрами
Почта          = СоздатьОбъект("AddIn.AddInMail");   
Почта.СерверОтправки  = "smtp.yandex.ru";
Почта.ПортОтправки    = "587";  
Почта.Логин        = "[email protected]";
Почта.Пароль      = "*****";


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

//Формируем сообщение
Почта.Важность    = 0;
Почта.Кодировка    = "windows-1251";
Почта.ТипПисьма    = 2;
Почта.АдресОтправителя  = "АдресОтправителя"; 
Почта.ИмяОтправителя  = "Вася";
ИмяПолучателя = "а"; 
АдресПолучателя = "[email protected]";
//указываем получателей письма
Почта.ДобавитьАдрес("АдресПолучателя",ИмяПолучателя,АдресПолучателя);

//если необходимо добавляем вложения 
Почта.Вложения = "D:\Документы\Login.docx";


Почта.Тема  = "Тема письма ";
Почта.Тело  = "Отчет";   

//Пытаемся отправить
Если Почта.Соединение=0 Тогда
Сообщить("Соединение потеряно","!");
ИначеЕсли Почта.Отправить()=1 Тогда
Сообщить("Почтовое сообщение отправлено","i");
Иначе
Сообщить("Не удалось отправить сообщение","!");
Конецесли;    

//Отключаемся
Почта.Отключиться();
КонецПроцедуры