Отправка письма с несколькими вложениями
Добрый день. Поскажите, отправляю письмо с 3мя вложениями, пользователю приходит письмо, Три вложения с разными именами, но файл один первый во всех письмах. Хотя формируются разные файлы.
Пока Выборка.Следующий() Цикл
//Если Выборка.ДатаНачала = НачалоОтпуска Тогда
ПланированиеОтпусков = Выборка.Ссылка.ПолучитьОбъект();
ИмяВременногоФайла = ПолучитьИмяВременногоФайла("pdf");
Бланк = ПланированиеОтпусков.НапечататьБланкНаОтпуск(Выборка.НомерСтроки,"ПечатьБланкОтпуск");
Бланк.Записать(ИмяВременногоФайла,ТипФайлаТабличногоДокумента.PDF);
ДвоичныеДанные = Новый ДвоичныеДанные(ИмяВременногоФайла);
Вложения = Новый ТаблицаЗначений;
Вложения.Колонки.Добавить("Данные");
Вложения.Колонки.Добавить("Имя");
НоваяСтрока = Вложения.Добавить();
НоваяСтрока.Данные = Новый ДвоичныеДанные(ИмяВременногоФайла);
НоваяСтрока.Имя = "Бланк на отпуск.pdf";
//БланкЛистОзнакомления
_ИмяВременногоФайла = ПолучитьИмяВременногоФайла("pdf");
БланкОзнакомления = ПланированиеОтпусков.НапечататьБланкЛистОзнакомления(Выборка.НомерСтроки);
Бланк.Записать(_ИмяВременногоФайла,ТипФайлаТабличногоДокумента.PDF);
ДвоичныеДанные = Новый ДвоичныеДанные(_ИмяВременногоФайла);
НоваяСтрока = Вложения.Добавить();
НоваяСтрока.Данные = Новый ДвоичныеДанные(_ИмяВременногоФайла);
НоваяСтрока.Имя = "Бланк ознакомления.pdf";
//-- Бланк уведомление о начале отпуска
_ИмяВременногоФайла = ПолучитьИмяВременногоФайла("pdf");
БланкОзнакомления = ПланированиеОтпусков.НапечататьБланкУведомлениеОНачалеОтпуска(Выборка.НомерСтроки);
Бланк.Записать(_ИмяВременногоФайла,ТипФайлаТабличногоДокумента.PDF);
ДвоичныеДанные = Новый ДвоичныеДанные(_ИмяВременногоФайла);
НоваяСтрока = Вложения.Добавить();
НоваяСтрока.Данные = Новый ДвоичныеДанные(_ИмяВременногоФайла);
НоваяСтрока.Имя = "Бланк уведомление о начале отпуска.pdf";
//--
ТемаПисьма = "БЛАНК НА ОТПУСК";
ТекстПисьма = "Напоминание: ";
ТекстПисьма = ТекстПисьма+"<H1>У вас начинается отпуск с "+Формат(Выборка.ДатаНачала,"ДФ=dd.MM.yyyy")+":</H1>";
ТекстПисьма = ТекстПисьма+"<H1>Необходимо распечатать и подписать заявление и уведомление на отпуск. Подписанные документы предоставить в отдел кадров</H1>";
sОбщиеФункцииНаСервере.ОтправитьПисьмоОтложенно(Выборка.Ответственный,ТекущаяДата(),,ТемаПисьма,ТекстПисьма,Новый ХранилищеЗначения(Вложения))
ПоказатьПо теме из базы знаний
- Отправка пакета документов по электронной почте (в формате PDF/XLS/HTML/MXL/ODS)
- Бухгалтерия 3: Групповая отправка документов по электронной почте (Счет на оплату покупателя, Реализация товаров и услуг, Счет фактура выданный, Акт сверки)
- Автоматическая отправка на почту ежедневного отчета руководителю об активности сотрудников из 1С (без доработки и использования расширений)
- Менеджер продаж, внешняя обработка для 1С: Бухгалтерии предприятия, редакция 3.0
- Отправка сообщений с вложениями на WhatsApp
Найденные решения
Потому что:
и аналогично:
БланкОзнакомления = ПланированиеОтпусков.НапечататьБланкЛистОзнакомления(Выборка.НомерСтроки);
Бланк.Записать(_ИмяВременногоФайла,ТипФайлаТабличногоДокумента.PDF);
и аналогично:
БланкОзнакомления = ПланированиеОтпусков.НапечататьБланкУведомлениеОНачалеОтпуска(Выборка.НомерСтроки);
Бланк.Записать(_ИмяВременногоФайла,ТипФайлаТабличногоДокумента.PDF);
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Потому что:
и аналогично:
БланкОзнакомления = ПланированиеОтпусков.НапечататьБланкЛистОзнакомления(Выборка.НомерСтроки);
Бланк.Записать(_ИмяВременногоФайла,ТипФайлаТабличногоДокумента.PDF);
и аналогично:
БланкОзнакомления = ПланированиеОтпусков.НапечататьБланкУведомлениеОНачалеОтпуска(Выборка.НомерСтроки);
Бланк.Записать(_ИмяВременногоФайла,ТипФайлаТабличногоДокумента.PDF);
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот