Добрый день. Бухгалтерия предприятия КОРП 3.0.49.23 . Есть обработка, которая отправляет документы - акт об оказании услуг, счета-фактуры, счета на оплату покупателей, контрагентам - списку либо единичным. Документы сохраняются в формате pdf, учетная запись используется 1С-ная настроенная. Все бы ничего, но при отправке документов контрагентам, сколько документов было выбрано для отправки, столько писем на почтовый адрес и приходит. Что не есть хорошо. Как сделать так, чтобы одному контрагенту, приходило одно письмо с вложенными документами, сколько бы их там не было выбрано?
p.s. Прикладываю http://pro1c.org.ua/redirect.php?https://yadi.sk/d/Pygdjp1X3HLHFp.честно, она не моя. счета кое-как подправил под себя. их цепляет и отправляет. а при выборе акта, наблюдаются проблемы. видимо из-за изменения конфы. но надеюсь что подправлю со временем.
p.p.s. в программировании начинающий,так что учусь, просьба не ругаться если буду тупить. Буду рад любой помощи/подсказке/совету.
A.Frost89 @ Вчера, 14:56
,
Добрий день. А яким чином формуються файли відправки для контрагента? (в папку"ТЕМР" на компютері)...
a1987mar @ Сегодня, 15:46
,
да.всё так и есть. производится выгрузка во временный каталог.
A.Frost89 @ Сегодня, 17:04
,
Вам потрібно щоб оброботка створювала по коду ЄДРПО Контрагента каталог (папку) і в неї закидувало документи для відправки.
Если сами писали код, то найдите участок гле формируется объект "ИнтернетПочтовоеСообщение", у него есть коллекция "Вложения" - добавляйте свои файлы по одному в коллекцию, или раз вы сохраняете их во временный каталог, то можно заархивировать их и приложить к письму архив. По поводу первого способа в коде должно быть что-то вроде такого:
ПочтовоеСообщение = Новый ИнтернетПочтовоеСообщение;
ПочтовоеСообщение.Кодировка = "utf-8";
ПочтовоеСообщение.ИмяОтправителя = СокрЛП(УчетнаяЗаписьДляРассылки.АдресЭлектроннойПочты);
ПочтовоеСообщение.Отправитель = СокрЛП(УчетнаяЗаписьДляРассылки.АдресЭлектроннойПочты);
ПочтовоеСообщение.Тема = "Тема месседжа";
Получатель = ПочтовоеСообщение.Получатели.Добавить();
Получатель.Адрес = СокрЛП(ПолучательПисьма);
Получатель.ОтображаемоеИмя = СокрЛП(ПолучательПисьма);
Получатель.Кодировка = "utf-8";
ТекстСообщения = ПочтовоеСообщение.Тексты.Добавить();
ТекстСообщения.Кодировка = "utf-8";
ТекстСообщения.ТипТекста = ТипТекстаПочтовогоСообщения.HTML;
ТекстСообщения.Текст = ПолучитьТекстСообщенияHTML();
Для Каждого ПутьФайлаВложения Из МассивВложений Цикл
ПочтовоеСообщение.Вложения.Добавить(ПутьФайлаВложения);
КонецЦикла;
Попытка
ИнтернетПочта.Послать(ПочтовоеСообщение);
Исключение
ТекстОшибок = ТекстОшибок + Символы.ПС + (Строка(УчетнаяЗаписьДляРассылки) + ". " + ОписаниеОшибки());
Возврат ТекстОшибок;
КонецПопытки;
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua