![]() |
|
Отправка таблицы значений в теле письма. | ☑ | ||
---|---|---|---|---|
0
Vladislava-smile
06.08.15
✎
09:24
|
Подскажите плиз, в чем проблема.
Код: Если ТЗ.Количество()<>0 тогда ОтправкаАктов = Справочники.ОбъектыРассылки.НайтиПоКоду("000000007"); Отправитель = ОтправкаАктов.УчетнаяЗаписьОтправителя; Получатели = Новый СписокЗначений; Для каждого Получатель из ОтправкаАктов.УчетныеЗаписиПочты Цикл Получатели.Добавить(Получатель.ПочтаПолучателя); КонецЦикла; Тема = "Отправленные акты сверки " + Формат(ТекущаяДата(),"ДЛФ=ДД"); ТелоПисьма = "<h3>Акты сверки по организации "+Организация+", отправленые контрагентам:</h3><br />"; ТелоПисьма = ТелоПисьма + "<table border='1px'><th>Наименование</th><th>Дата</th><th>Номер</th><th>Контрагент</th><th>Подразделение</th><th>Ответственный</th><th>ДнейДоОкончания</th>"; Для каждого СтрТЗ Из ТЗ Цикл ТелоПисьма = ТелоПисьма + "<tr>"; ТелоПисьма = ТелоПисьма + "<td>" + СтрТЗ.Контрагент + "</td>"; ТелоПисьма = ТелоПисьма + "<td>" + СтрТЗ.ДоговорКонтрагента + "</td>"; ТелоПисьма = ТелоПисьма + "<td>" + СтрТЗ.Менеджер + "</td>"; ТелоПисьма = ТелоПисьма + "<td>" + СтрТЗ.Подразделение + "</td>"; ТелоПисьма = ТелоПисьма + "</tr>"; КонецЦикла; Сообщение=Новый ИнтернетПочтовоеСообщение; ТекстСообщения = Сообщение.Тексты.Добавить(ТелоПисьма, ТипТекстаПочтовогоСообщения.HTML); УправлениеЭлектроннойПочтой.ОтправитьСообщение(Отправитель, Получатели, Тема, ТекстСообщения, ); КонецЕсли; Получаю: ИнтернетТекстПочтовогоСообщения. |
|||
1
Живой Ископаемый
06.08.15
✎
09:28
|
в 5-й строчке
|
|||
2
Vladislava-smile
06.08.15
✎
09:43
|
(1) А что не так? Если указываю явно
Получатели.Добавить("Vladislava-smile@mail.ru"); то же самое получаю ... |
|||
3
Живой Ископаемый
06.08.15
✎
09:48
|
мне не нравится. неправильная она какая-то. в этом и проблема. В Безблагодатности.
|
|||
4
Vladislava-smile
06.08.15
✎
09:50
|
Чего? ))))) Ты курил что-то? )
|
|||
5
Живой Ископаемый
06.08.15
✎
09:51
|
Ну почитай свое сообщение с точки зрения постороннего человека и попробуй ответить на вопрос на которого нет
|
|||
6
Альбатрос
06.08.15
✎
09:52
|
(4) А что такого? Я вот когда курну - людей намного лучше воспринимаю
|
|||
7
Vladislava-smile
06.08.15
✎
09:54
|
(6) А сейчас как воспринимается? )) Ладно, варианты есть в чем глюк?
|
|||
8
Живой Ископаемый
06.08.15
✎
09:57
|
а в чем глюк? что не так?
|
|||
9
Vladislava-smile
06.08.15
✎
09:59
|
Получаю в сообщении в тексте письма: ИнтернетТекстПочтовогоСообщения.
|
|||
10
Живой Ископаемый
06.08.15
✎
09:59
|
а что не так?
|
|||
11
Vladislava-smile
06.08.15
✎
10:02
|
Мне надо получать таблицу значений. А я даже Телописьма не получаю:
ТелоПисьма = "<h3>Акты сверки по организации "+Организация+", отправленые контрагентам:</h3><br />"; |
|||
12
Vladislava-smile
06.08.15
✎
10:04
|
Нужно отправлять таблицу значений короче, почитала в инете, говорят надо указывать тип сообщения
ТипТекстаПочтовогоСообщения.HTML Как вложение использовать не хочу |
|||
13
Vladislava-smile
06.08.15
✎
10:21
|
Нет вариантов?
|
|||
14
Живой Ископаемый
06.08.15
✎
10:31
|
Есть версия посмотреть на это сообщение другим клиентом
|
|||
15
Vladislava-smile
06.08.15
✎
10:34
|
(14) То есть? Не поняла.
|
|||
16
Живой Ископаемый
06.08.15
✎
10:35
|
яснопонятно.
|
|||
17
Vladislava-smile
07.08.15
✎
06:55
|
Вопрос решен:
ТЗ.Свернуть("Контрагент, ДоговорКонтрагента, ЭлАдресДоговораКонтрагента, Подразделение, Менеджер"); Если ТЗ.Количество() > 0 Тогда ОтправкаАктов = Справочники.ОбъектыРассылки.НайтиПоКоду("000000007"); Отправитель = ОтправкаАктов.УчетнаяЗаписьОтправителя; Получатели = Новый СписокЗначений; Для каждого Получатель из ОтправкаАктов.УчетныеЗаписиПочты Цикл Получатели.Добавить(Получатель.ПочтаПолучателя); КонецЦикла; // Подключимся к почте Почта = Неопределено; ПочтаПодключена = Ложь; Если ЗначениеЗаполнено(Отправитель) Тогда Почта = Новый ИнтернетПочта(); Попытка Почта.Подключиться(УправлениеЭлектроннойПочтой.ПолучитьИнтернетПочтовыйПрофиль(Отправитель)); ПочтаПодключена = Истина; Исключение КонецПопытки; КонецЕсли; Если ПочтаПодключена Тогда Если ЗначениеЗаполнено(Получатель) Тогда ПочтовоеСообщение = Новый ИнтернетПочтовоеСообщение; ПочтовоеСообщение.Тема = "Отправленные акты сверки " + Формат(ТекущаяДата(),"ДЛФ=ДД"); ПочтовоеСообщение.Отправитель.Адрес = Отправитель; ПочтовоеСообщение.Получатели.Добавить(); ПочтовоеСообщение.Получатели.Добавить(Получатели); ПочтовоеСообщение.Отправитель.ОтображаемоеИмя=Отправитель.ПолноеНаименование(); ТекстПисьма = "<h3>Акты сверки по организации "+Организация+", отправленые контрагентам:</h3><br /> Создатель рассылки: "+ПараметрыСеанса.ТекущийПользователь+". Эл. адрес: "+ПочтаОтветственного+".<br />"; ТекстПисьма = ТекстПисьма + "<table border='1px'><th>Контрагент</th><th>Договор контрагента</th><th>Эл. адрес договора контрагента</th><th>Подразделение</th><th>Менеджер</th>"; Для каждого СтрТЗ Из ТЗ Цикл ТекстПисьма = ТекстПисьма + "<tr>"; ТекстПисьма = ТекстПисьма + "<td>" + СтрТЗ.Контрагент + "</td>"; ТекстПисьма = ТекстПисьма + "<td>" + СтрТЗ.ДоговорКонтрагента + "</td>"; ТекстПисьма = ТекстПисьма + "<td>" + СтрТЗ.ЭлАдресДоговораКонтрагента + "</td>"; ТекстПисьма = ТекстПисьма + "<td>" + СтрТЗ.Подразделение + "</td>"; ТекстПисьма = ТекстПисьма + "<td>" + СтрТЗ.Менеджер + "</td>"; ТекстПисьма = ТекстПисьма + "</tr>"; КонецЦикла; ПочтовоеСообщение.Тексты.Добавить(ТекстПисьма, ТипТекстаПочтовогоСообщения.HTML); Попытка Почта.Послать(ПочтовоеСообщение); Исключение //Сообщить("Не отправлено админу"); КонецПопытки; КонецЕсли; КонецЕсли; КонецЕсли; |
|||
18
shpioleg
07.08.15
✎
08:10
|
еще бы </table> в конце для порядка
|
|||
19
Живой Ископаемый
07.08.15
✎
09:26
|
а в чем разница?
|
|||
20
Demasiado
07.08.15
✎
13:22
|
Вот готовая система отправки отчетности http://www.sunbyte.ru/products/item/arep82 , можно прикрутить запрос, схему компоновки данных, отчет на построителе. Отчет улетает в виде xls или pdf вложения
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |