По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Можно сделать что бы они удалялись из базы после отправки. Например в процедуре при записи
Если статус письма = отправлено тогда
Объект. Удалить() ;
Отказ =истина;
Конецесли
Но лучше сделать регламентное задание которое будет удалять письма старше Н дней, что бы можно было понимать отправлялись оно или нет
Если статус письма = отправлено тогда
Объект. Удалить() ;
Отказ =истина;
Конецесли
Но лучше сделать регламентное задание которое будет удалять письма старше Н дней, что бы можно было понимать отправлялись оно или нет
(8) Добавляешь в общий модуль процедуру
Добавляешь регламентное задание. Указываешь выполнять эту процедуру. Ставишь глаки использовать и предопределенный. Указываешь расписание.
Обновляешь и радуешься
Процедура УдалениеУстаревшихПисем() Экспорт
ДатаОкончания = ТекущаяДата() - 7 *86400;
выборка = Документы.ЭлектронноеПисьмоИсходящее.Выбрать(,ДатаОкончания);
Пока выборка.Следующий() Цикл
ТекущийОбъект = выборка.ПолучитьОбъект();
ТекущийОбъект.Удалить();
КонецЦикла;
КонецПроцедуры
ПоказатьДобавляешь регламентное задание. Указываешь выполнять эту процедуру. Ставишь глаки использовать и предопределенный. Указываешь расписание.
Обновляешь и радуешься
тогда добавляем
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЭлектронноеПисьмоИсходящееПрисоединенныеФайлы.Ссылка
|ИЗ
| Справочник.ЭлектронноеПисьмоИсходящееПрисоединенныеФайлы КАК ЭлектронноеПисьмоИсходящееПрисоединенныеФайлы
|ГДЕ
| ЭлектронноеПисьмоИсходящееПрисоединенныеФайлы.ДатаСоздания < &ДатаСоздания";
Запрос.УстановитьПараметр("ДатаСоздания", ДатаОкончания);
РезультатЗапроса = Запрос.Выполнить().Выбрать();
Пока РезультатЗапроса.Следующий() цикл
ТекущийОбъект = РезультатЗапроса.Ссылка.ПолучитьОбъект();
ТекущийОбъект.Удалить();
КонецЦикла;
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот