Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 12:01

Регламентное задание по отправке отчетов

Автор Маргарита, 23 авг 2016, 12:25

0 Пользователей и 1 гость просматривают эту тему.

Маргарита

Здравствуйте. Есть регламентное задание по отправке отчетов на почту.
вот кусок из общего модуля:

&НаСервере
Процедура Отчет() Экспорт
ТекстПисьма = "Отчет по ... за " + Строка(НачалоДня(ТекущаяДата())-60*60*16) + " - " + Строка(НачалоДня(ТекущаяДата())+60*60*8) + Символы.ПС;
Таб = СоздатьОтчет(ТекстПисьма);
КопияТаб = СоздатьНовыйОтчет(ТекстПисьма);
КопияКопияТаб = СоздатьНовыйНовыйОтчет(ТекстПисьма);

ПутьКФайлу1 = "C:\Users\Public\";
ИмяФайла1 = "Закрытие инцидентов по линиям.xls";
ПолноеИмяФайла1 = ПутьКФайлу1+ИмяФайла1;

ВыгрузитьТДвФайл(Таб, ПолноеИмяФайла1, ТекстПисьма);

ПутьКФайлу2 = "C:\Users\Public\";
ИмяФайла2 = "Статистика выполнения обращений в срок.xls";
ПолноеИмяФайла2 = ПутьКФайлу2+ИмяФайла2;

ВыгрузитьТДвФайл(КопияТаб, ПолноеИмяФайла2, ТекстПисьма);

ПутьКФайлу3 = "C:\Users\Public\";
ИмяФайла3 = "Контрольная карта - количество обращений.xls";
ПолноеИмяФайла3 = ПутьКФайлу3+ИмяФайла3;

ВыгрузитьТДвФайл(КопияКопияТаб, ПолноеИмяФайла3, ТекстПисьма);

ОтправкаУведомлений(ТекстПисьма, ПолноеИмяФайла1);
ОтправкаУведомлений(ТекстПисьма, ПолноеИмяФайла2);
ОтправкаУведомлений(ТекстПисьма, ПолноеИмяФайла3);


Отчеты выгружаются из 1С и посылаются на почту в формате XML.
А требуется, чтобы на почту приходили не экселевские файлы, а просто картинки JPG или PDF, притом именно как элемент письма, а не как вложение.
Пожалуйста, помогите сделать.

LexaK

так 1С отчеты легко сохраняются как PDF!!!

вам надо всего в одном месть поправить формат сохранения отчетов не в Ексель а в ПДФ (в процедуре ВыгрузитьТДвФайл),
ну и при отправке расширения измените с xls на pdf
а в почте вложения ПДФ как раз и открываются как картинки!


если помогло нажмите: Спасибо!

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск