Здравствуйте, вопрос такой - как можно реализовать ежедневную автоматическую отправку отчета из программы 1С ЗУП 2.0 на почту?

Сейчас только мысль делать через Консоль заданий - регламентные задания
- функция из модуля

Можно ли как-то автоматически отправлять сформированный  отчет на СКД?

вот именно так, как в (0) написано и надо делать.


Процедура ОтправитьПочтовоеСообщение(АдресПолучателя,Тема,Тело,Файл) экспорт
    если справочники.ПрофилиПочты.НайтиПоРеквизиту("Текущий",Истина).Пустая() = истина тогда
        Сообщить("Нет активных почтовых профилей. Отправка не возможна!",СтатусСообщения.ОченьВажное);
    конецесли;    
    если справочники.ПрофилиПочты.НайтиПоРеквизиту("Текущий",Истина).Пустая() = Ложь тогда
        текущий_профиль=справочники.ПрофилиПочты.НайтиПоРеквизиту("Текущий",Истина).ПолучитьОбъект();
        Профиль = новый ИнтернетПочтовыйПрофиль;
        Профиль.АдресСервераSMTP = текущий_профиль.Сервер;
        Профиль.ПользовательSMTP = текущий_профиль.Пользователь;
        Профиль.ПарольSMTP = текущий_профиль.Пароль;
        ПРофиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
    
        Сообщение = Новый ИнтернетПочтовоеСообщение;
        Сообщение.ИмяОтправителя=текущий_профиль.Наименование;
        Сообщение.Отправитель = текущий_профиль.Пользователь;;
        Сообщение.Тема = Тема;
        Сообщение.Получатели.Добавить(АдресПолучателя);
        Сообщение.Тексты.Добавить(Тело);
        Сообщение.Вложения.Добавить(Файл);
    
        Почта = Новый ИнтернетПочта;
        Попытка
            Состояние("Отправка почтового сообщения...");
            Почта.Подключиться(Профиль);
            Почта.Послать(Сообщение);
            сообщить("Сообщение успешно отправлено на Вашу почту!");
        Исключение
            Сообщить("Ошибка соединения с сервером.",СтатусСообщения.ОченьВажное);
            Сообщить(""+ОписаниеОшибки());
        КонецПопытки;  
    конецесли;
КонецПроцедуры



ТабДок = Новый ТабличныйДокумент;
Отчет = Отчеты.Имя.Создать();
Отчет.ПриКомпоновкеРезультата(ТабДок);
ИмяФайла = КаталогВременныхФайлов() + "\Отчет.xls";
ТабДок.Записать(ИмяФайла,ТипФайлаТабличногоДокумента.XLS);


(0)[Можно ли как-то автоматически отправлять сформированный  отчет на СКД?]
можно
и достаточно нажать Я в правом верхнем углу, чтобы получить тучу готового кода

(3) Спасибо,
(4) честно, искала, не нашла

(5) не верю (с)
на инфостарте сотни готовых решений

(5) ну и не заметить, что В БСП есть готовая подсистема для работы с СКД не возможно

(0) А что такое ЗУП 2.0? :)

(8) собственная разработка - шутка) пора, наверное, на 3.0 переводить)

(7) вопрос то не в написании отчета на скд был, а в том , как реализовать его отправку на e-mail

у меня формирование отчета через общие макеты

ТабДокумент = Новый ТабличныйДокумент;
    Макет       = ПолучитьОбщийМакет("Отчет");

Код из (2) в фоновом задании работать не будет

(10) Обоснуйте

А. Хотя да. Состояние() не работает.
Извините

(12) сообщить() тоже не будет

(0) в БСПже готовая подсистема..

там можно и варианты выбирать и параметры отборов задавать и группы рассылок делать с архивацией отправленных отчетов в базе

В БСП есть подсистема "Регламентная рассылка отчётов". Также, можно посмотреть её работу в типовой УТ 11.2 .

В нашей фирме на этой подсистеме организована рассылка прайс-листа с остатками. Причём прайс - это нетиповой отчёт, но на СКД. Что как бы говорит о том, что подсистемой можно отправлять практически всё, что угодно.

(9) не, не пора. Минимум как ещё год смысла переводить на ЗУП 3 = нет. + там ещё интерфейс метров недоделан. Недавно все смотрел

(16) ой интерфейс такси))) привык я уже в виндовскому метро :D

(14-15) СПАСИБО БОЛЬШОЕ, ВЫРУЧИЛИ