Esto te puede servir.
This example builds a rich text item and sets styles so that part of the text is bold.
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim doc As New NotesDocument(db)
Call doc.AppendItemValue("From", session.UserName)
Call doc.AppendItemValue("Subject", _
"Meeting time changed")
Dim richStyle As NotesRichTextStyle
Set richStyle = session.CreateRichTextStyle
Dim richText As New NotesRichTextItem(doc, "Body")
Call richText.AppendText("The meeting is at ")
richStyle.Bold = True
Call richText.AppendStyle(richStyle)
Call richText.AppendText("3:00")
richStyle.Bold = False
Call richText.AppendStyle(richStyle)
Call richText.AppendText(" not 2:00")
Call doc.Save(True, False)
End Sub
Otro
Dim rtitem As NotesRichTextItem
Dim rtstyle As NotesRichTextStyle
Set db = session.CurrentDatabase
Set rtitem = doc.GetFirstItem("Remarks")
Set rtstyle = session.CreateRichTextStyle()
rtstyle.Bold = True
rtstyle.NotesFont = FONT_HELV
rtstyle.NotesColor = COLOR_BLACK
Call rtitem.AppendStyle(rtstyle)
Call rtitem.AppendText(Format(Now,"dd.mm.yyyy hh:nn") & ", " & session.CommonUserName & Chr(13))
rtstyle.Bold = False
Call rtitem.AppendStyle(rtstyle)
Call rtitem.AppendText(doc.NewRemark(0) & Chr(13) & Chr(13))
doc.NewRemark = ""
Call doc.Save(True,False,True)