|
0
Ivan1Shulga
17.06.19
✎
13:24
|
Создаю почтовый клиентв 8.3 и столкнулся с такой проблемой, что при отборе документов должно отправляться каждый "Текст" отдельным сообщением.
В данном случае, отправляется нормально, только последний документ, остальные же объединяются со всеми документами с поздней датой.
Хееееееееееееееелп, помогите! Я вообще ничего не понимаю. Уровень: чайник в 1С.
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| АридаТабель.Дата,
| АридаТабельВремя.Начало,
| АридаТабельВремя.Окончание,
| АридаТабельВремя.ТипВремени,
| АридаТабельВремя.Партнер,
| АридаТабельВремя.Содержание,
| АридаТабельВремя.КОплате,
| АридаТабель.ФизЛицо
|ИЗ
| Документ.АридаТабель.Время КАК АридаТабельВремя
| ЛЕВОЕ СОЕДИНЕНИЕ Документ.АридаТабель КАК АридаТабель
| ПО АридаТабельВремя.Ссылка = АридаТабель.Ссылка";
РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
Пока Выборка.Следующий() Цикл
ДатаВыполнения = Формат(Выборка.Дата, "ДФ = дд.ММ.гггг");
НачалоЧас = Формат(Выборка.Начало, "ДФ = ЧЧ:мм:сс");
ОкончанияЧас = Формат(Выборка.Окончание, "ДФ = ЧЧ:мм:сс");
ТипВремени = Выборка.ТипВремени;
Клиент = Выборка.Партнер;
Содержание = Выборка.Содержание;
Итогов = Формат(Выборка.КОплате, "ДФ = ЧЧ:мм:сс");
Кто = Выборка.ФизЛицо;
Текст = Строка(ДатаВыполнения) + " с " + Строка(НачалоЧас) + " по " + Строка(ОкончанияЧас) + " сотрудник " + Строка(Кто) + " выполнил ряд работ для: " + Строка(Клиент) + " по типу: " + Строка(ТипВремени) +"." + " Содержание выполненных работ: " + Строка(Содержание) + ". " + "Итого к оплате: " + Итогов + ".";
Сообщение.Тема = "Theme";
Сообщение.Тексты.Добавить(Текст); //что тут писать, я не знаю. пробовал разные варианты - выдает ошибки
Адрес = Сообщение.Получатели.Добавить("example@mail.ru");
Адрес.ОтображаемоеИмя = Клиент;
//Отправка письма
Попытка
Почта.Послать(Сообщение);
Исключение
Почта.Отключиться();
Сообщить("Ошибка при отправке письма: " + ОписаниеОшибки());
КонецПопытки;
Текст = "";
КонецЦикла;
|
|