Имя: Пароль:
1C
1С v8
Работа с почтовым клиентом 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) и получателей (Сообщение.Получатели) тоже очищайте, а то заспамит всех