|
Работа с почтовым клиентом 1С | ☑ | ||
---|---|---|---|---|
0
Ivan1Shulga
17.06.19
✎
13:24
|
Создаю почтовый клиентв 8.3 и столкнулся с такой проблемой, что при отборе документов должно отправляться каждый "Текст" отдельным сообщением.
В данном случае, отправляется нормально, только последний документ, остальные же объединяются со всеми документами с поздней датой. Хееееееееееееееелп, помогите! Я вообще ничего не понимаю. Уровень: чайник в 1С. Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | АридаТабель.Дата, | АридаТабельВремя.Начало, | АридаТабельВремя.Окончание, | АридаТабельВремя.ТипВремени, | АридаТабельВремя.Партнер, | АридаТабельВремя.Содержание, | АридаТабельВремя.КОплате, | АридаТабель.ФизЛицо |ИЗ | Документ.АридаТабель.Время КАК АридаТабельВремя | ЛЕВОЕ СОЕДИНЕНИЕ Документ.АридаТабель КАК АридаТабель | ПО АридаТабельВремя.Ссылка = АридаТабель.Ссылка"; РезультатЗапроса = Запрос.Выполнить(); Выборка = РезультатЗапроса.Выбрать(); Пока Выборка.Следующий() Цикл ДатаВыполнения = Формат(Выборка.Дата, "ДФ = дд.ММ.гггг"); НачалоЧас = Формат(Выборка.Начало, "ДФ = ЧЧ:мм:сс"); ОкончанияЧас = Формат(Выборка.Окончание, "ДФ = ЧЧ:мм:сс"); ТипВремени = Выборка.ТипВремени; Клиент = Выборка.Партнер; Содержание = Выборка.Содержание; Итогов = Формат(Выборка.КОплате, "ДФ = ЧЧ:мм:сс"); Кто = Выборка.ФизЛицо; Текст = Строка(ДатаВыполнения) + " с " + Строка(НачалоЧас) + " по " + Строка(ОкончанияЧас) + " сотрудник " + Строка(Кто) + " выполнил ряд работ для: " + Строка(Клиент) + " по типу: " + Строка(ТипВремени) +"." + " Содержание выполненных работ: " + Строка(Содержание) + ". " + "Итого к оплате: " + Итогов + "."; Сообщение.Тема = "Theme"; Сообщение.Тексты.Добавить(Текст); //что тут писать, я не знаю. пробовал разные варианты - выдает ошибки Адрес = Сообщение.Получатели.Добавить("[email protected]"); Адрес.ОтображаемоеИмя = Клиент; //Отправка письма Попытка Почта.Послать(Сообщение); Исключение Почта.Отключиться(); Сообщить("Ошибка при отправке письма: " + ОписаниеОшибки()); КонецПопытки; Текст = ""; КонецЦикла; |
|||
1
spiller26
17.06.19
✎
14:17
|
(0) Через что вы делаете?
Почта = Новый ИнтернетПочта; или Почта = Новый Почта; |
|||
2
Greeen
17.06.19
✎
14:18
|
Сообщение.Тексты.Очистить(); //Вот эту штуку добавьте попробуйте
Сообщение.Тексты.Добавить(Текст); //что тут писать, я не знаю. пробовал разные варианты - выдает ошибки |
|||
3
Ivan1Shulga
17.06.19
✎
15:08
|
(1) Почта = Новый ИнтернетПочта;
|
|||
4
Мимохожий Однако
17.06.19
✎
15:13
|
Отладчиком смотрел, что нашКодил?
|
|||
5
Ivan1Shulga
17.06.19
✎
15:17
|
(2) Оууууу, спасибо. Очистка текста сообщения помогла)
|
|||
6
Greeen
17.06.19
✎
15:29
|
(5) и получателей (Сообщение.Получатели) тоже очищайте, а то заспамит всех
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |