Ошибка при отправке письма через 1с

1С v8

04.02.19

✎

16:57

Добрый день.

Есть почта:
    ИнПочта                       = Новый ИнтернетПочта;
    ИнПрофиль                     = Новый ИнтернетПочтовыйПрофиль;
    ИнПрофиль.ВремяОжидания       = 180; ;
    ИнПрофиль.АдресСервераSMTP    = "mail.ttt.pro";
    ИнПрофиль.АдресСервераPOP3    = "mail.ttt.pro";
    ИнПрофиль.Пользователь        = "info@ttt.pro";
    ИнПрофиль.ПользовательSMTP    = "info@ttt.pro";
    ИнПрофиль.Пароль              = "ttt";
    ИнПрофиль.ПарольSMTP          = "ttt";
    ИнПрофиль.ПортSMTP            = 25;
    ИнПрофиль.ПортPOP3            = 110;
    ИнПрофиль.АутентификацияSMTP  = СпособSMTPАутентификации.Login;

Тело письма html, если в теле письма есть ссылки на картинки https, возникает ошибка:
Ошибка доступа к файлу 'https : // sun9...': Ошибка работы с Интернет: Удаленный узел не прошел проверку

Что бы такое сделать, что бы такого не было?

1 ДенисЧ

04.02.19

✎

17:03

Не использовать ссылки https?

2 TolikoSprosit

04.02.19

✎

17:07

(1) Не вариант

3 TolikoSprosit

05.02.19

✎

10:03

Вопрос в том могу я как-то настроить "ИнПрофиль" или нужно где-то на сервере почтовом смотреть?

4 spiller26

05.02.19

✎

10:32

(0) Попробуй через ИнтернетПочтовоеСообщение

5 TolikoSprosit

05.02.19

✎

12:16

(4) ;) Через него и отправляю.

6 TolikoSprosit

05.02.19

✎

12:17

(4) Там нет настроек про картинки

7 TolikoSprosit

05.02.19

✎

21:10

Значит так, ошибка такая что все почтовые серверы при работе через 1с не умеют качать картинки по https.

Но мы то умеем;)

Функция ЗаменитьВсеТэгиИзображенийCHttps(ТекстХТМЛ)

    МассивВременныхФайлов = Новый Массив;
    RegExp = ОбщегоНазначения.ПолучитьКомпанентуРаботыСРегулярнымиВыражениями();

    RegExp.Pattern = "<IMG.*https.*?>";
    Для каждого Тэг Из RegExp.Execute(ТекстХТМЛ) Цикл

        RegExp.Pattern = "src="".*?""";
        Для каждого ТекстСсылки Из RegExp.Execute(Тэг.Value) Цикл
            СсылкаДляСкачивания = СтрЗаменить(ТекстСсылки.Value,"src=""","");
            СсылкаДляСкачивания = СтрЗаменить(СсылкаДляСкачивания,"""","");

            ИмяВременногоФайла = ПолучитьИмяВременногоФайла(РаботаСFTP.ПолучитьРасширениеФайла(СсылкаДляСкачивания));
            ОтветЛок = РаботаСWebServices.ВыполнитьHTTPЗапрос(СсылкаДляСкачивания,ИмяВременногоФайла);

            Если ОтветЛок = "" И ИзображениеКорректно(ИмяВременногоФайла) тогда
                ТекстХТМЛ = СтрЗаменить(ТекстХТМЛ,СсылкаДляСкачивания,ИмяВременногоФайла);
                МассивВременныхФайлов.Добавить(ИмяВременногоФайла);
            Иначе
                ВызватьИсключение ОтветЛок;
            КонецЕсли;
        КонецЦикла;
    КонецЦикла;

    Возврат Новый Структура("ТекстХТМЛ,МассивВременныхФайлов",ТекстХТМЛ,МассивВременныхФайлов);


КонецФункции // ()

8 TolikoSprosit

05.02.19

✎

21:10

Спасибо всем кто помогал