Реклама на этом месте
Форум 1С
Форум 1С
Программистам. Бухгалтерам. Администраторам. Пользователям
Задай вопрос - получи решение проблемы. Без троллинга и флуда.
20 Сен 2017, 03:18
МультиВход
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?
 
collapse

Автор Тема: Ошибка при отправке письма на эл. почту.  (Прочитано 590 раз)

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

Оффлайн OlegSh

  • *
  • Сообщений: 1
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2016-08-29
  • Сайт: 
  • Профессия: Ученик 1С
В середине августа сего года вдруг перестали отправляться письма из 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();
             
                Сообщить("Письмо отправлено.");
             
            Исключение
             
                Сообщить("Письмо не отправлено. Ошибка:" +ОписаниеОшибки());
             
            КонецПопытки;


Теги:
 


* Живое общение

Не устроил ответ?

Зарегистрируйся и задай свой вопрос. Живое общение приносит результат намного быстрее.


Зарегистрироваться

* Реклама

Смотрите бесплатно более 300 видеоуроков по работе в 1С:Бухгалтерия 8 и 1C:ЗУП 8 ред. 3.0

СМОТРЕТЬ >>

* Поиск

* Последние задачи на разработку (фриланс)

* Реклама

* Последние вакансии

* Топ 10 авторов за месяц

oleg-x
174 Сообщений
alex0402
82 Сообщений
Геннадий ОбьГЭС Геннадий ОбьГЭС
80 Сообщений
AsadRoman
36 Сообщений
Kironten
34 Сообщений
ilyay ilyay
30 Сообщений
Golickoff Golickoff
29 Сообщений
AIFrame
27 Сообщений
BuhRust
26 Сообщений
Варвар
20 Сообщений

* Кто онлайн

  • Точка Гостей: 228
  • Точка Скрытых: 0
  • Точка Пользователей: 3
  • Точка Сейчас на форуме:

* Облако тэгов

* Форум 1С с мобильного

* Инструменты

* Дополнительно

Поиск

 
SimplePortal 2.3.5 © 2008-2012, SimplePortal