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