Перестала работать программная отправка писем (не встроенными средствами 1С) через Яндекс

sendusername         = МояПочта.Логин;
    sendpassword         = МояПочта.Пароль;
    AddAttachments =      СтруктураПараметров.Файлы;
    ТекстСообщения     =СтруктураПараметров.Тема + Символы.ПС + Символы.ВК + СтруктураПараметров.Текст;

    loConfig         = Новый COMОбъект("CDO.Configuration");
    loCdoMessage     = Новый COMОбъект("CDO.Message");
    loCdoMessage.Configuration = loConfig;
    loCdoMessage.From    = Строка("Торговый аген"""" <"+sendusername+">");
    loCdoMessage.To      = СтруктураПараметров.АдресПолучателя;                                                             //loCdoMessage.To      = "xxxxxxx@gmail.ru>";
    loCdoMessage.Subject = СтруктураПараметров.Тема; ;

    HTMLBody = "<html>
    |<head>
    |<meta content=""text/html; charset=Windows-1251"" http-equiv=""content-type"">
    |<title> Тестовое сообщение </title>
    |</head>
    |<body>
    |<h4>" + ТекстСообщения + "</h4>
    |<p></p>
    |</body>
    |</html>";
    loCdoMessage.BodyPart.Charset = "windows-1251"; // это если делать без извратов с оформлением текста письма
    loCdoMessage.HTMLBody = HTMLBody;

    Для каждого стр из AddAttachments Цикл
        Попытка
            loCdoMessage.AddAttachment(стр);
        Исключение
        КонецПопытки;
    КонецЦикла;
    loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing").            Value = 2;
    loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").           Value = МояПочта.SMTPСервер;
    loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport").       Value = МояПочта.ПортSMTP;
    loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").     Value = 1;
    loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername").         Value = sendusername;
    loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword").         Value = sendpassword;
    loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl").           Value = 1;
    loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout").Value = 60;

    loConfig.Fields.Update();
    Попытка
        loCdoMessage.Send();
    Исключение
        Сообщить(ОписаниеОшибки());
    КонецПопытки;