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

Dragon108

Well-known member
19.01.2010
265
0
#1
Есть поле 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>