v7: Письмо не отправленно Ошибка (CDO.Message.1: Транспорту не удалось подключиться

Всем привет! Аналогичная обработка работала, а недавно перестала работать (((
Думаю, что в связи с изменениями доступа к mail.ru
Сейчас выдает ошибку (в теме)
Вот код:

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

    cdoSendEmailAddress  = "http://schemas.microsoft.com/cdo/configuration/sendemailaddress"; ;
    cdoSendPassword      = "http://schemas.microsoft.com/cdo/configuration/sendpassword"; ;
    cdoSendUserName      = "http://schemas.microsoft.com/cdo/configuration/sendusername"; ;
    cdoSendUsingMethod   = "http://schemas.microsoft.com/cdo/configuration/sendusing"; ;
    cdoSMTPAuthenticate  = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"; ;
    cdoSMTPServer        = "http://schemas.microsoft.com/cdo/configuration/smtpserver";;
    cdoSMTPServerPort    = "http://schemas.microsoft.com/cdo/configuration/smtpserverport";;
    cdoSMTPUseSSL        = "http://schemas.microsoft.com/cdo/configuration/smtpusessl";;

    iConf = СоздатьОбъект("CDO.Configuration");
    iConf.fields(cdoSendUsingMethod).value = 2;

    iConf.fields(cdoSMTPServer).value         = "smtp.mail.ru";
    iConf.fields(cdoSMTPServerPort).value     = 465;
    iConf.fields(cdoSMTPAuthenticate).value   = 1;
    iConf.fields(cdoSendUserName).value       = "otpravitel@mail.ru";
    iConf.fields(CdoSendPassword).value       = "пароль";

    iConf.fields(cdoSendEmailAddress).value   = "otpravitel@mail.ru";
    iConf.fields(cdoSMTPUseSSL).value         = 0; //Secure Sockets Layer

    iConf.fields.update();

    iMsg=СоздатьОбъект("CDO.Message");
    iMsg.configuration        = iConf;
    iMsg.to                   ="poluchatel@gmail.com"; //адрес получателя
    iMsg.from                 ="otpravitel@mail.ru"; //адрес отправителя
    iMsg.subject              ="ТемаПисьма";   //тема письма
    iMsg.textBody             ="ТелоПисьма";   //тело письма
    iMsg.textBodypart.charset ="windows-1251";

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

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

Подскажите, что не так?