---

Замечание к документу "Должно быть достаточно просто получить соответствующий NotesRichTextItem,..."   >>>

Тема: Получается неправильный MIME --> RTF

Создан:

Pavel Severov 11/26/2003 04:26 PM

Папка: 06. Разработка Notes-приложений

Тип сообщения: Дополнение

---

Сообщение:

Конверсия-то происходит, но как-то очень криво. Вот пример:

' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
Dim mime As NotesMIMEEntity
Dim stream As NotesStream
Set mime=NewDoc.CreateMIMEEntity("Body")
Set stream=session.CreateStream
Call stream.WriteText("<font face=verdana>Здесь <b>можно</b> использовать <font color=red>HTML</font></font>")
Call mime.SetContentFromText(stream,"text/html;charset=windows-1251",ENC_IDENTITY_8BIT)
Call NewDoc.CloseMIMEEntities(True,"Body")

Dim RTItem As NotesRichTextItem
Set RTItem=NewDoc.GetFirstItem("Body")

''' Если эти две строки наличествуют, то действительно происходит конверсия
''' MIME --> RTF. Но уж больно криво. Например в результирующем тексте
''' никаким <font face=verdana> и не запахнет.
''' Но если эти две строки убрать, потом открыть этот документ в UI и сохранить
''' то MIME --> RTF тоже выполнится, но гораздо правильнее

Call NewDoc.Save(True, False)
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '

---

Иерархия документов данной дискуссии:
HTML by MIME (Pavel Severov) (17.11.2003 11:14:53)
.... Должно быть достаточно просто получить соответствующий NotesRichTextItem,... (Vladimir A. Panov; NotesSrv400) (25.11.2003 20:42:27)
........ Получается неправильный MIME --> RTF (Pavel Severov) (26.11.2003 16:26:32)


Разработчикам и администраторам: курсы, книги, сертификация