Couldn't you use the PassThruHTML property of NotesRichtextStyle to mark the rtf as HTML? If my memory serves me right u can use it in conjunction with 2 rtf-fields. One for storing, one for presentation. Simply append the content of the storing field to the presentation field after appending the style in a WQO-Agent:
Set item = doc.getFirstItem("StoreField")
Call doc.removeItem("PresentField")
Set newitem = doc.createRichTextItem("PresentField")
Couldn't you use the PassThruHTML property of NotesRichtextStyle to mark the rtf as HTML? If my memory serves me right u can use it in conjunction with 2 rtf-fields. One for storing, one for presentation. Simply append the content of the storing field to the presentation field after appending the style in a WQO-Agent:
Set item = doc.getFirstItem("StoreField")
Call doc.removeItem("PresentField")
Set newitem = doc.createRichTextItem("PresentField")
Dim richStyle As NotesRichTextStyle
Set richStyle = s.CreateRichTextStyle
richStyle.PassThruHTML = True
If newitem.Type = RICHTEXT Then
Call newitem.AppendStyle(richStyle)
Call newitem.appendRTItem(item)
End If