Раньше для наполнения произвольным html-содержимым RTF поля я
создавал внешний временный html файл и через notesUIDocument.Import
загонял его в RTF поле. Это сносно работало, но угнетала необходимость
использования notesUIDocument.
Недавно я открыл для себя способ делать то же самое через NotesMIMEEntity.
Вот пример, заполняющий RTF поле NewDoc.Body:
Dim mime As NotesMIMEEntity
Dim stream As NotesStream
Set mime=NewDoc.CreateMIMEEntity("Body")
Set stream=session.CreateStream
Call stream.WriteText("Здесь <b>можно</b> использовать <font color=red>HTML</font>")
Call mime.SetContentFromText(stream,"text/html;charset=windows-1251",ENC_IDENTITY_8BIT)
Call NewDoc.CloseMIMEEntities(True,"Body")
Все-бы хорошо, только в некоторых случаях RTF поля в MIME формате выглядят,
мягко говоря, кривовато (например их неадекватно воспринимает IntelliPRINT).
Однако было замечено, что если открыть и сохранить документ используя UI, то
MIME конвертируется в стандартный RTF и все становится OK (при этом нужно чтобы
для одноименного RTF поля в форме не было включено Store contents as HTML and MIME).
Эту операцию можно сделать и в скрипте, но за что, собственно, боролись!?
Опять notesUIDocument!?
Штатных средств для конвертации (без использования UI) полей MIME RTF в
стандартный RTF я найти не смог. Может плохо искал?...
