Проблемы с конвертацией Mime в Richtext

@PovytT100 · Регистрация: 05.07.2007

Студворк — интернет-сервис помощи студентам

И вот такая теперь у меня проблема. Пришло письмо в лотус из OutLook. Оно в MIME формате. Вообще все пользователи с такими работают. Открывают, дописывают туда, ставят комментарии и т.д.
А я решил его открыть программно. Вот пришло только что письмо и я его раз читаю и ничего собственно не делаю:

Code
1
2
3
4
5
6
7
    Dim session As New NotesSession
session.ConvertMIME = true
 
Dim rtitem As NotesRichTextItem
Set rtitem = doc.GetFirstItem("Body")
 
doc.Save(True, False )

А эффект плачевен, документ сохранился, но формат текста поля Body письма - шрифт, размер, цвет потерялся. Как его правильно сковертировать чтобы эти параметры сохранились ?
Если GetFirstItem не делать, а просто сохранить документ, то потерь формата не произойдёт.

@Dorkyr · 22.07.2010, 07:02

попробуй в начале
session.ConvertMIME = False
потом в конце
session.ConvertMIME = True

@PovytT100 · 22.07.2010, 11:03

Сообщение от Darker

попробуй в начале
session.ConvertMIME = False
потом в конце
session.ConvertMIME = True

Если открывать документ с session.ConvertMIME = False, то поле Body предствляет собой массив из 4 элементов - частей MIME формата. Само собой GetFirstItem уже не работает, так как это не RichTetxt.
Что есть для вас "начало" и "конец" ?

@wowo · 22.07.2010, 11:09

вот как у мну работает, куски кода:

Code
1
2
3
4
5
6
7
8
9
10
s.ConvertMime = False
.....
...
...
 
Set stream = s.CreateStream
Set mime = doc.CreateMIMEEntity("Body")
Call mime.SetContentFromText (stream, "text/html;charset=UTF-8", ENC_NONE)
 
s.ConvertMime = True

@PovytT100 · 22.07.2010, 12:11

Сообщение от wowa

вот как у мну работает, куски кода:

Code
1
2
3
4
5
6
7
8
9
10
s.ConvertMime = False
.....
...
...
 
Set stream = s.CreateStream
Set mime = doc.CreateMIMEEntity("Body")
Call mime.SetContentFromText (stream, "text/html;charset=UTF-8", ENC_NONE)
 
s.ConvertMime = True

Это замчательные куски, если надо сделать письмо с MIME частями и отправить его.
А у меня чуть другая задача. Мне уже пришло письмо. Мне бы надо его сковертировать в обычные ричтекст, но это плохо получается. Теряеются элементы форматирования - размер шрифта и цвет. Вот как мне этого достичь ? Идея у меня затем простая, мне к этому ричтексту надо будет дописывать комментарии читателей писем.

@ныш · 22.07.2010, 13:21

Сообщение от PavelT100

надо его сковертировать в обычные ричтекст, но это плохо получается. Теряеются элементы форматирования - размер шрифта и цвет.

Я бы сказал - это, в целом, у Лотуса плохо получается

Сообщение от PavelT100

Вообще все пользователи с такими работают. Открывают, дописывают туда, ставят комментарии и т.д.

Т.е., у пользователей все нормально - не теряется форматирование? А к ним эти письма в MIME или в Rich Text приходят? Это же еще от настроек в DD зависеть может...

@ToxoRot · 22.07.2010, 13:21

LotusScript
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function ConvertRTDoc(Doc As NotesDocument) As String  Конверт Mime в РТ
ses.ConvertMIME = False
Dim mime As NotesMIMEEntity, v1 As Variant
Set mime = doc.GetMIMEEntity
v1 = ""
If Not(mime Is Nothyng) Then
Call mime.DecodeContent
v1 = mime.ContentAsText
End If
If Len(v1)>64000 Then v1 = Left(v1, 64000)
Let Doc.ReplaceItemValue("Body2", v1).Issummary = False
ConvertRTDoc = v1
ses.ConvertMIME = True
End Function

@PovytT100 · 22.07.2010, 13:37

Сообщение от Мыш

Т.е., у пользователей все нормально - не теряется форматирование? А к ним эти письма в MIME или в Rich Text приходят? Это же еще от настроек в DD зависеть может...

Что такое DD ?
Даже у меня как у пользователя Лотуса, когда я в Лотусе работаю с письмами как обычный пользователь открываю их, редактирую, закрываю всё работает корректно. Письма приходят MIME. А вот потом, после открытия, сохранения и закрытия они становятся у пользователей RcihText и это гораздо более корректный ричтекст, чем тот которй получается у меня если делать это программно

Code
1
2
3
 Dim rtitem As NotesRichTextItem
Set rtitem = doc.GetFirstItem("Body")
doc.Save(True, False )

Добавлено:

Сообщение от ToxaRat

LotusScript
1
2
3
Function ConvertRTDoc(Doc As NotesDocument) As String  Конверт Mime в РТ
....
End Function

Спасибо, я попробую. Но чувствую это будет очень большой геморой, если будет несколько MIME частей, если будут приатаченные картинки, приатаченные файлы - замучаешься их выколупывать и пристыковывать заново.
А уж если что-то потеряется, меня в асфальт закатают под общее улюлюкание.

@ныш · 22.07.2010, 13:44

Сообщение от PavelT100

Что такое DD ?

DD=Domino Directory.
Я просто хотел сказать, что конвертация MIME->Rich Text работает достаточно хреново и при конвертации писем самим сервером Domino (если письмо приходит в MIME, а в документе пользователя в DD указано "Prefers Rich Text").
Потеря атрибутов текста, кривые таблицы - все это наблюдаю довольно часто. Поэтому не жду от LS корректной конвертации... :please:

@PovytT100 · 22.07.2010, 14:18

Сообщение от Мыш

Поэтому не жду от LS корректной конвертации...

Да, но при редактировании пользователя руками и сохранении документа в ричтексте получается результат лучше чем у меня программно - вот это наводит на мысль, что можно же ещё что-то сделать....

@ныш · 22.07.2010, 14:34

Сообщение от PavelT100

получается результат лучше чем у меня программно

Боюсь, не все можно сделать на LS. Посмотрите еще C API, возможно, там выбор побогаче...

@turumboy · 22.07.2010, 14:50

Сообщение от PavelT100

Да, но при редактировании пользователя руками и сохранении документа в ричтексте получается результат лучше чем у меня программно - вот это наводит на мысль, что можно же ещё что-то сделать....

А не смотрели, как выглядит документ в dxl? Может получица прямо в майм запихнуть?
В RT точно можно воткнуть <pardef> с произвольным форматированием, не снося остального форматирования...

@PovytT100 · 22.07.2010, 15:18

Сообщение от turumbay

...можно воткнуть <pardef> с произвольным форматированием, ...

А что такое <pardef> ?

@hosm · 22.07.2010, 15:25

так в DXL рт-параграфы задаются, попробуйте док-т с рт экспортнуть и всё увидите.
ЗЫ. т.е. их стили.

@turumboy · 22.07.2010, 15:26

Сообщение от PavelT100

А что такое <pardef> ?

Сообщение от Designer 7 Help

pardef element: Represents explicit style information for a paragraph. Use thys element with the <par> element, which represents a paragraph

Выгрузите документ, содержащий ричтекст, в dxl и откройте текстовым редактором. После долгого вглядывания обычно становица понятно, что нужно добавить чтобы получить желаемое.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .

@Dorkyr 0 / 0 / 0 Регистрация: 12.01.2009 Сообщений: 246
	22.07.2010, 07:02
	попробуй в начале session.ConvertMIME = False потом в конце session.ConvertMIME = True 0

@hosm 0 / 0 / 0 Регистрация: 15.05.2009 Сообщений: 1,454
	22.07.2010, 15:25
	так в DXL рт-параграфы задаются, попробуйте док-т с рт экспортнуть и всё увидите. ЗЫ. т.е. их стили. 0