|
УТ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]
|
|