Регламентное задание для отправки почты с сервера.
Может кто-то сталкивался с проблемой настройки отправки почты в УПП. Суть в том что доступ к серверу exchange для целей отправки из 1с может осуществляться только с одного компьютера. Нужно чтоб пользователи просто создавали письма, а отправлялись они регламентным заданием с машины которая имеет доступ.
По теме из базы знаний
- К вопросу о регламентном задании – восстановлении последовательности
- Описание почти всех событий технологического журнала
- Отправка и получение почтовых сообщений
- WhatsApp-клиент для 1С - отправка/получение сообщений, изображений, смайлов, файлов из 1С через сервис GreenApi
- Самые используемые методы БСП 3.1.9
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Регламентное задание будет запускаться с компьютера, на котором установлен сервер 1С, необходимо чтобы доступ к почте был разрешен с него.
В Вашем варианте лучше так наверно:
1. Написать обработку, которая отправляет почту.
2. Настроить на той машине, которая имеет доступ к почте, в планировщике заданий новое задание, которое будет периодически запускать сеанс 1С под определенным пользователем и запускать эту обработку при открытии.
В Вашем варианте лучше так наверно:
1. Написать обработку, которая отправляет почту.
2. Настроить на той машине, которая имеет доступ к почте, в планировщике заданий новое задание, которое будет периодически запускать сеанс 1С под определенным пользователем и запускать эту обработку при открытии.
Долго думал придумал так. Добавить в общий модуль к примеру В ВыполнениеРегламентныхЗаданий процедуру и добавить регламентное задание для её вызова. Как считаете такой подход правильный?
Процедура ОтправкаПочтовыхСообщение() Экспорт
Если НЕ Константы.ИспользованиеВстроенногоПочтовогоКлиента.Получить() Тогда
Возврат;
КонецЕсли;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЭлектронноеПисьмо.Номер
|ИЗ
| Документ.ЭлектронноеПисьмо КАК ЭлектронноеПисьмо
|ГДЕ
| ЭлектронноеПисьмо.СтатусПисьма = ЗНАЧЕНИЕ(Перечисление.СтатусыПисем.Исходящее)";
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
док=Документы.ЭлектронноеПисьмо.НайтиПоНомеру(ВыборкаДетальныеЗаписи.номер);
док.ПолучитьОбъект().ОтправитьПисьмо();
КонецЦикла;
КонецПроцедуры
Показать
Ну ты т... Короче не надо лезть в типовые модули, просто создай свой общий модуль, чтоб потом не затереть все с обновлением енто раз. Потом че за код ты выдумал. За тебя уже все сделали смотри Регламентное задание в УПП ПолучениеЭлектронныхСообщений и соответственно сделай на основе процедуры отправку.
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот