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