Имя: Пароль:
1C
1С v8
Отправка таблицы значений в теле письма.
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 вложения