Не удается подключиться к SMTP серверу

Процедура должна отправлять письмо, однако выскакивает сообщение :
{ВнешняяОбработка.Тест3.Форма.Форма1.Форма(25)}: Ошибка при вызове метода контекста (Подключиться): Сервис отключен с разрывом канала (SMTP error code 421 SMTP connection broken (reply)
)

&НаСервере
Процедура дйОтправитьНаСервере()

    Т2 = ПолучитьТаблицу();
    ЗначениеВРеквизитФормы(Т2,"Табл1"); //отобразить на форме

    ПрофильПодключения = Новый ИнтернетПочтовыйПрофиль;
    ПрофильПодключения.АдресСервераSMTP ="smtp.yandex.ru";
    ПрофильПодключения.ПортSMTP = 465;
    ПрофильПодключения.ПользовательSMTP = "zetzon@yandex.ru";
    ПрофильПодключения.ПарольSMTP ="1234567890";

    Почта = Новый ИнтернетПочта;

    Попытка
        Почта.Подключиться(ПрофильПодключения);
    Исключение
        Сообщить("Не удалось подключиться к серверу smtp.yandex.ru");
        Сообщить(ОписаниеОшибки());
    КонецПопытки;

    Тело="Добрый день.";

    Письмо = Новый ИнтернетПочтовоеСообщение;
    Письмо.Тексты.Добавить(Тело);
    Письмо.Тема = "Пробное письмо";
    Письмо.Отправитель = "zetzon@yandex.ru";
    Письмо.ИмяОтправителя = "Имя";
    Письмо.Получатели.Добавить("zetzon@yandex.ru");

    Попытка
        Почта.Послать(Письмо);
    Исключение
        Сообщить("Не удалось отправить письмо ");
        Сообщить(ОписаниеОшибки());
    КонецПопытки;

    Почта.Отключиться();

КонецПроцедуры