Раскрасить записи в Richtextitem

[Dragon108]

Есть поле RichTextItem в сабформе. В него необходимо вставлять текст и подкрашивать его, точнее даже не его, а всю строчку, в которой он написан.
Пытаюсь вставлять в RichTextItem таблицы и подкрашивать их. Не хочет (часть из хелпа)

 Dim session As New NotesSession
...
Dim rti As NotesRichTextItem
Set rti = doc.GetFirstItem("Body")
rti.AppendTable "1", "1"
Dim rtnav As NotesRichTextNavigator
Set rtnav = rti.CreateNavigator
Dim rtt As NotesRichTextTable
Set rtt = rtnav.GetElement
rtt.Style = TABLESTYLE_TOP
Dim colorObject As NotesColorObject
Set colorObject = session.CreateColorObject
colorObject.NotesColor = COLOR_BLUE
Call rtt.SetColor(colorObject)
Call doc.Save(True, True)

Просто вставляет таблицы, но не подкрашивает их. В чем может быть косяк?

P.S. Еще пробовал устанавливать PassThruHTML = True к стилю, но тоже не хочет. При:

richStyle.PassThruHTML = True
Call richText.AppendStyle(richStyle)
Call richText.AppendText("<B>Hello</B>")

выдает в результате <B>Hello</B>

 

[nvyush]

Попробуйте формировать html и вставлять как mime, поищите по форуму, информация есть.

link removed