Имя: Пароль:
1C
1С v8
Отправка из 1С письма и получение в Outlook
0 prostovityaz
 
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
Спасибо