Отправка писем из 1С

[magnifico61]

Пытаюсь программно отправить письмо и подключиться в режиме предприятия к почте и получаю следующую ошибку:
Ошибка при вызове метода контекста (Подключиться): Произошла ошибка при работе с SMTP. Код ошибки: 25 (Отказ в установлении соединения со стороны сервера.)

Код Выделить Развернуть

Отправитель = Справочники.УчетныеЗаписиЭлектроннойПочты.НайтиПоНаименованию("test_1c_sent@mail.ru");

УстановитьПривилегированныйРежим(Истина);
Пароли = ОбщегоНазначения.ПрочитатьДанныеИзБезопасногоХранилища(Отправитель, "Пароль, ПарольSMTP");
УстановитьПривилегированныйРежим(Ложь);
Пароль = ?(ЗначениеЗаполнено(Пароли.Пароль), Пароли.Пароль, "");
ПарольSMTP = ?(ЗначениеЗаполнено(Пароли.ПарольSMTP), Пароли.ПарольSMTP, "");

Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = Отправитель.СерверИсходящейПочты; //"smtp.mail.ru";
Профиль.АдресСервераPOP3 = Отправитель.СерверВходящейПочты; //"pop.mail.ru";
Профиль.ПортPOP3 = Отправитель.ПортСервераВходящейПочты; //110;
Профиль.ПортSMTP = Отправитель.ПортСервераИсходящейПочты; //587;
Профиль.Пользователь = Отправитель.Пользователь; //"test@mail.ru";
Профиль.Пароль = Пароль; //"123456789";
Профиль.ПользовательSMTP = Отправитель.Пользователь; //"test@mail.ru";
Профиль.ПарольSMTP = ПарольSMTP; //"123456789";
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;   
//Создаем письмо
Почта = Новый ИнтернетПочта;
Письмо = Новый ИнтернетПочтовоеСообщение;
Текст = Письмо.Тексты.Добавить("Заказ во вложении!");
Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;
Письмо.Тема = "Заказ";
Письмо.Отправитель = Отправитель.АдресЭлектроннойПочты;
Письмо.ИмяОтправителя = Отправитель.ИмяПользователя;
Письмо.Получатели.Добавить(ПочтаПоставщика);
Письмо.Вложения.Добавить(Файл);
//добавляем вложение если нужно, например "C:\Приложение.doc"
//Вложений можно добавлять сколько требуется.   
//Отправляем письмо
Попытка   
Почта.Подключиться(Профиль);   
Почта.Послать(Письмо);
Исключение   
Сообщить(ОписаниеОшибки());
КонецПопытки;   
//Закрываем письмо
Почта.Отключиться();
//Закрываем файл вложения
Письмо.Вложения.Очистить();