Добрый день.
Начало здесь
v8: ПочтовоеСообщение но так как там нельзя добавлять сообщения - решил создать новую тему.
Накопал в инете вот такую ссылку
в двух словах там говориться что картинку надо зашифровать "...Данные должны быть предварительно закодированы в 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% уверен что он правильный. полностью нет смысла его вылаживать
так он отображаеться в браузере
а это он сам
фактически ТекстРассылки равен данным из него
//Текст_ ="<IMG height=70 alt=Logo src='
http://www.mista.ru/logo.gif' target='_blank' width=180>"
// я вроде так хотел написать но браузер походу искарявил
Письмо = Новый ИнтернетПочтовоеСообщение;
Попытка
Текст = Письмо.Тексты.Добавить(Текст_);
Текст.ТипТекста = ТипТекстаПочтовогоСообщения.HTML;
Письмо.Тема = ТемаПисьма;
Письмо.Отправитель = ПараметрыРассылки.Пользователь;
Письмо.ИмяОтправителя = ИмяОтправителяПисьма; //(ИмяОтправителяПисьма - реквизит обработки)
Письмо.Организация = ОрганизацияПисьма;//(ОрганизацияПисьма - реквизит обработки)
Письмо.Отправитель.Адрес = ПараметрыРассылки.Адресотправки;
Попытка
Почта.Подключиться(Профиль);
Для Каждого СтрокаТЧ_ Из ПодписчикиРассылки Цикл //ПодписчикиРассылки - табличная часть обработки
Письмо.Получатели.Очистить();
Письмо.Получатели.Добавить(СтрокаТЧ_.Подписчики);
///////////Валиться теперь здесь
////////// кто что скажет?
Почта.Послать(Письмо);//!!!! Валиться!!!
Сообщить("Письмо отправлено " + Строка (СтрокаТЧ_.КонтактноеЛицо) + " Контрагент: " + Строка (СтрокаТЧ_.Контрагент));
КонецЦикла;
Исключение
Сообщить("Не удалось подключиться к серверу");
Сообщить(ОписаниеОшибки());
КонецПопытки;
Почта.Отключиться();
Сообщить("Соединение завершено");
Исключение
Сообщить("Ошибки письма");
КонецПопытки;
