0
ogion83
23.01.20
✎
13:58
|
День добрый.
Перестала уходить почта из 1С.
Сообщение = Новый ПочтовоеСообщение;
Сообщение.Текст = "";
Сообщение.Отправитель = "****@*****.ru";
Сообщение.Тема ="ПСА";
Адресок = "";
ЭлАдрес = ЭлементыФормы.Контрагент.Значение.ЭлАдрес;
Сообщение.Получатели.Добавить(ЭлАдрес);
Сообщение.Вложения.Добавить(Новый ДвоичныеДанные("D:\ДляОтправки\ПСА.xls"),"ПСА.xls");
Почта = Новый Почта;
//подключаемся без параметров, к клиенту установленному по умолчанию в системе
Почта.Подключиться(,);
Попытка
//Пытаемся послать письмо
Почта.Послать(Сообщение,);
Исключение
Сообщить(ОписаниеОшибки());
Возврат;
КонецПопытки;
//отключение
Почта.Отключиться();
На строке Почта.Подключиться(,); 1С зависает и закрывается.
|
|