Examples: CreateRichTextItem method

This script creates a new rich text item called ProjectDescription and adds a text value to it.

Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
'...set value of doc...
Set rtitem = doc.CreateRichTextItem( "ProjectDescription" )
Call rtitem.AppendText( "Book for children ages 9-12" )
Call doc.Save( False, True )