|
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
|
апну разок
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |