Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
24 июн 2021, 15:44

Ошибка при отправке письма на эл. почту.

Автор OlegSh, 29 авг 2016, 12:06

0 Пользователей и 1 гость просматривают эту тему.

OlegSh

В середине августа сего года вдруг перестали отправляться письма из 1С7.7. Выдает ошибку "Ошибка:CDO.Message.1: The transport failed to connect to the server." Оболочка 027.

Вот код, который давно и успешно работал ((... Может кто-то сможет подсказать, куда копать?

iConf = CreateObject("CDO.Configuration");
         
            iMsg = CreateObject("CDO.Message");
         
         
            iMsg.Configuration = iConf;
         
            iMsg.From          = "на склад""""<"+ СокрЛП(Константа.АдресЭлПочты)+">";
         
            iMsg.To            = СокрЛП(Клиент.АдресЭлПочты);
         
            iMsg.Subject       = "Накладная для загрузки №"+НомерДок+" от "+ДатаДок;
         
            iMsg.textBody      = "...";
         
         
            iMsg.BodyPart.Charset = "windows-1251";
         
            iMsg.AddAttachment(СокрЛП(Константа.ПутьКфайлу)+"\Real.dbf");
         
            iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing").            Value = 2;
         
            iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").           Value = "smtp.mail.ru";
         
            iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport").       Value = "465";
         
            iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").     Value = 1;
         
            iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername").         Value = "почта@mail.ru";
         
            iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword").         Value = "пароль";
         
            iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl").           Value = 1;
         
            iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout").Value = 60;
         
         
            iConf.Fields.Update();
         
            Попытка
             
                iMsg.Send();
             
                Сообщить("Письмо отправлено.");
             
            Исключение
             
                Сообщить("Письмо не отправлено. Ошибка:" +ОписаниеОшибки());
             
            КонецПопытки;


Теги:
Рейтинг@Mail.ru Rambler's Top100

Поиск