Имя: Пароль:
1C
1С v8
УТ10: отправка отчёта по е-майл
,
0 21stas
 
07.06.14
19:48
Хочу в отчёте добавить кнопочку - чтобы отчёт отправлялся по е-майл.
Намекните, где посмотреть примерчик. Или инфу почитать.
1 Otkr
 
07.06.14
19:51
В любом типовом отчете в УТ 10, ну в большинстве точно
2 Поpyчик-4
 
07.06.14
20:33
(0) Посмотреть, как сделано в форме вывода печатных форм. Зелёная кнопка Отправить по электронной почте.

(1) Есть только в печатных формах.
3 Otkr
 
07.06.14
20:35
(2) Возможно, давно не работал с 10.3 )
4 AlteZ
 
07.06.14
21:39
Из Розницы
[code]            АдресПартнера=УчетнаяЗапись.АдресЭлектроннойПочты;//адрес для отправки сообщения
            НаименованиеПартнера = УчетнаяЗапись.Наименование;//наименование партнера
            АдресСервераSMTP=УчетнаяЗапись.SMTPСервер;//smtp сервер для отправки сообщения
            ПортSMTP=УчетнаяЗапись.ПортSMTP;//smtp порт
            ПользовательSMTP= УчетнаяЗапись.ЛогинSMTP; //пользователь почты
            ПарольSMTP=УчетнаяЗапись.ПарольSMTP;//пароль почты

            Текст = Новый ЗаписьТекста(Путь, КодировкаТекста.UTF8);
            Текст.ЗаписатьСтроку("текст вложения");
            Текст.Закрыть();

    Попытка
        ПочтовыйПрофиль=Новый ИнтернетПочтовыйПрофиль;
        ПочтовыйПрофиль.АдресСервераSMTP=АдресСервераSMTP;
        ПочтовыйПрофиль.ПортSMTP=ПортSMTP;
        ПочтовыйПрофиль.ПользовательSMTP=ПользовательSMTP;
        ПочтовыйПрофиль.ПарольSMTP=ПарольSMTP;
        ПочтовыйПрофиль.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;
        НовоеСообщение                                 = Новый ИнтернетПочтовоеСообщение;
        НовоеСообщение.Кодировка                     = "utf-8";
        НовоеСообщение.Отправитель.Адрес             = АдресПартнера;
        НовоеСообщение.Отправитель.ОтображаемоеИмя     = НаименованиеПартнера;
        НовоеСообщение.Отправитель.Кодировка         = "utf-8";
        НовоеСообщение.Получатели.Добавить(АдресДляОбмена);
        НовоеСообщение.Вложения.Добавить(Путь);    
        НовоеСообщение.Тема = "Выгрузка";
        НовоеСообщение.УведомитьОДоставке=УведомитьОДоставке;
        Почта=Новый ИнтернетПочта;
        Почта.Подключиться(ПочтовыйПрофиль);
        Почта.Послать(НовоеСообщение);
        Почта.Отключиться();
    Исключение
        Инфо = ИнформацияОбОшибке();
        Сообщить(Инфо.Описание);
        Сообщить("Выгрузка не была отправлена!!! Необходимо в ручную отправить файл:" + Путь + ", на адрес:" + АдресДляОбмена,СтатусСообщения.ОченьВажное);
    КонецПопытки;
[/code]
Программист всегда исправляет последнюю ошибку.