Имя: Пароль:
1C
1С v8
v8: ПочтовоеСообщение (продолжение)
0 soleg78
 
10.11.12
07:39
Добрый день.
Начало здесь v8: ПочтовоеСообщение но так как там нельзя добавлять сообщения - решил создать новую тему.

Накопал в инете вот такую ссылку http://houseofhorse.ru/?/articles/base64.html


в двух словах там говориться что картинку надо зашифровать "...Данные должны быть предварительно закодированы в Base64..."

все сделал как по инструкции. Зашил картинку в теле письма и вроде пришло счастье, да не тут то было.
Дочитал до вот этого "P.S. Работает: Opera 10, Firefox 3, IE 8, Thunderbird 2, Thunderbird 3.
Не работает: IE 6."

поставил IE 8, страницы открываються в IE 8, все вроде ок.
В 1с если вставлять HTMLкод в редактор ПолеHTMLДокумента - тоже картинка становиться видима.
Но вот при отправке 1с валиться
продублирую для  восприятия код


       //ПараметрыРассылки - это справочник


   Профиль = Новый ИнтернетПочтовыйПрофиль;
   Профиль.АдресСервераSMTP = ПараметрыРассылки.АдресСервераSMTP;
   Профиль.АдресСервераPOP3 = ПараметрыРассылки.АдресСервераPOP3;
   Профиль.ПортPOP3 = ПараметрыРассылки.ПортPOP3;
   Профиль.ПортSMTP = ПараметрыРассылки.ПортSMTP;
   Профиль.Пользователь = ПараметрыРассылки.Пользователь;
   Профиль.Пароль = ПараметрыРассылки.Пароль;
   Профиль.ПользовательSMTP = ПараметрыРассылки.ПользовательSMTP;
   Профиль.ПарольSMTP = ПараметрыРассылки.ПарольSMTP;
   Профиль.АутентификацияSMTP = ПараметрыРассылки.АутентификацияSMTP;
   
   
   
   
   Почта = Новый ИнтернетПочта;
   
   // Создадим почтовое сообщение

   Текст_ =     ТекстРассылки; // -  это строка. код HTML документа. этот код открываеться браузерами, читаеться, я на 90% уверен что он правильный. полностью нет смысла его вылаживать
так он отображаеться в браузере http://soleg1978.narod.ru/i44x.html
а это он сам  http://soleg1978.narod.ru/i44x.zip
фактически ТекстРассылки равен данным из него http://soleg1978.narod.ru/i44x.zip



   //Текст_ ="<IMG height=70 alt=Logo src='http://www.mista.ru/logo.gif' target='_blank' width=180>"

       // я вроде так хотел написать но браузер походу искарявил


   Письмо = Новый ИнтернетПочтовоеСообщение;
   Попытка
       Текст = Письмо.Тексты.Добавить(Текст_);
       Текст.ТипТекста = ТипТекстаПочтовогоСообщения.HTML;
       
       Письмо.Тема = ТемаПисьма;
       Письмо.Отправитель = ПараметрыРассылки.Пользователь;
       Письмо.ИмяОтправителя = ИмяОтправителяПисьма; //(ИмяОтправителяПисьма - реквизит обработки)

       
       Письмо.Организация = ОрганизацияПисьма;//(ОрганизацияПисьма - реквизит обработки)

       
       Письмо.Отправитель.Адрес = ПараметрыРассылки.Адресотправки;
       
       Попытка
           Почта.Подключиться(Профиль);
           Для Каждого СтрокаТЧ_ Из ПодписчикиРассылки Цикл //ПодписчикиРассылки - табличная часть обработки

               Письмо.Получатели.Очистить();
               Письмо.Получатели.Добавить(СтрокаТЧ_.Подписчики);

///////////Валиться теперь здесь
////////// кто что скажет?
               Почта.Послать(Письмо);//!!!! Валиться!!!


               Сообщить("Письмо отправлено " + Строка (СтрокаТЧ_.КонтактноеЛицо) + " Контрагент: " + Строка (СтрокаТЧ_.Контрагент));
           КонецЦикла;
       Исключение
           Сообщить("Не удалось подключиться к серверу");
           Сообщить(ОписаниеОшибки());
       КонецПопытки;
       
       Почта.Отключиться();
       Сообщить("Соединение завершено");
       
   Исключение
       Сообщить("Ошибки письма");
   КонецПопытки;
1 soleg78
 
13.11.12
23:51
апну разок