Отправка из 1С письма и получение в Outlook

1С v8

, , ,

08.06.16

✎

12:00

Доброго времени суток!
Столкнулся с проблемой.

На почту mail и gmail тело письма приходит в нормальном виде, а в аутлук приходит письмо с вложениями "txt", и там сам текст.
Код отправки письма:
&НаСервере
Процедура ОтправитьПисьмо(Было, Стало, массивпочты, НовыйДокГлоб)
    Профиль = Новый ИнтернетПочтовыйПрофиль;
    Профиль.АдресСервераSMTP = "smtp.mail.ru";
    Профиль.АдресСервераPOP3 = "pop.mail.ru";
    Профиль.ПортPOP3 = 995;
    Профиль.ПортSMTP = 465;
    Профиль.Пользователь = Константы.ИмяПочты.Получить();
    Профиль.Пароль = Константы.ПарольПочты.Получить();
    Профиль.ПользовательSMTP = Константы.ИмяПочты.Получить();
    Профиль.ПарольSMTP = Константы.ПарольПочты.Получить();
    Профиль.ИспользоватьSSLPOP3 = Истина;
    Профиль.ИспользоватьSSLSMTP = Истина;
    Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
    Почта = Новый ИнтернетПочта;

    Письмо = Новый ИнтернетПочтовоеСообщение;
    Текст = Письмо.Тексты.Добавить("Номер задачи: "+стало.Номер);
    Текст = Письмо.Тексты.Добавить("Краткое описание: "+стало.КраткоеОписание);
    Текст = Письмо.Тексты.Добавить("");
    Текст = Письмо.Тексты.Добавить("Инициатор: "+стало.Инициатор);
    Текст = Письмо.Тексты.Добавить("Исполнитель: "+стало.исполнитель);
    Текст = Письмо.Тексты.Добавить("Куратор: "+стало.куратор);
    Текст = Письмо.Тексты.Добавить("Тип обращения: "+стало.ТипОбращения);
    Текст = Письмо.Тексты.Добавить("Состояние: "+стало.состояние);
    Текст = Письмо.Тексты.Добавить("Приоритет: "+стало.приоритет);
    Текст = Письмо.Тексты.Добавить("");
    Текст = Письмо.Тексты.Добавить("Содержание: "+стало.СодержаниеОбращения);
    Текст = Письмо.Тексты.Добавить("План дата: "+Формат(стало.пландата,"ДЛФ=Д"));
    Текст = Письмо.Тексты.Добавить("");
    Текст = Письмо.Тексты.Добавить("Результат выполнения: "+стало.РезультатВыполнения);
    Текст = Письмо.Тексты.Добавить("Факт дата: "+Формат(стало.фактдата,"ДЛФ=Д"));

    Письмо.Кодировка = "UTF8";

    Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;

    Если НовыйДокГлоб = Истина тогда
        Письмо.Тема = "Создалась новая задача "+стало.Номер;
    иначе
        Письмо.Тема = "Изменился статус задачи "+стало.Номер;
    конецесли;
    Письмо.Отправитель = Константы.ИмяПочты.Получить();
    Письмо.ИмяОтправителя = "Леонид";
    Для каждого ЭлПочта из МассивПочты цикл
        Письмо.Получатели.Добавить(ЭлПочта);
    конеццикла;

    Попытка
        Почта.Подключиться(Профиль);
        Почта.Послать(Письмо);
        Сообщить("Письма отправлены");
    Исключение
        Сообщить("Не удалось подключиться к серверу");
        Сообщить(ОписаниеОшибки());
    КонецПопытки;

    Почта.Отключиться();

КонецПроцедуры

Как обрабатывать тело письма перед отправкой, чтобы и в аутлук в нормальном читабельном виде был?

1 Cyberhawk

08.06.16

✎

12:09

Сам как думаешь, на какой стороне проблема?

2 Новиков

08.06.16

✎

12:16

Не извращайся. Поставь ТипТекстаПочтовогоСообщения.HTML и оберни текст сообщения в обертку хтмл, текст которой создается при создании нового сообщения в аутлуке. Там будет что-то типо:

ТекстПисьма = "<HTML><HEAD>..." + ТекстПисьма + "...</HTML>""

Все.

3 prostovityaz

08.06.16

✎

13:04

Решил вопрос банально и просто "Символы.ПС":
Текст = Письмо.Тексты.Добавить("Номер задачи: "+стало.Номер + Символы.ПС+"Краткое описание: "+стало.КраткоеОписание+ Символы.ПС +""+ Символы.ПС +"Инициатор: "+стало.Инициатор+Символы.ПС+"Исполнитель: "+стало.исполнитель+ Символы.ПС +"Куратор: "+стало.куратор+ Символы.ПС +"Тип обращения: "+стало.ТипОбращения+ Символы.ПС +"Состояние: "+стало.состояние+ Символы.ПС +"Приоритет: "+стало.приоритет+ Символы.ПС +""+ Символы.ПС + "Содержание: "+стало.СодержаниеОбращения+ Символы.ПС +"План дата: "+Формат(стало.пландата,"ДЛФ=Д")+ Символы.ПС +""+ Символы.ПС +"Результат выполнения: "+стало.РезультатВыполнения+ Символы.ПС + "Факт дата: "+Формат(стало.фактдата,"ДЛФ=Д"));

4 igniter

24.06.16

✎

18:34

Не хочу создавать новую ветку. Вопрос тоже о почте.

Клиент-серверный вариант работы.

Для оправки писем использую
ИнтернетПочта = Новый ИнтернетПочта;
ИнтернетПочта.Подключиться(ИнтернетПрофиль);

На клиенте - все ОК. Подключается и отправляются письма.
А когда запускаю на сервере - нет.

Выдает вот такую ошибку:
Ошибка при попытке соединения с сервером "c.itopen.ru:25" (10060)

Подскажите, пожалуйста, в чем проблема.

5 Beretta

24.06.16

✎

18:38

Таймаут. Твой сервер не умеет в интернет.

6 igniter

24.06.16

✎

18:42

Спасибо