Examples: AddNewLine method

This script finds the ProjectDescription item in a document. It adds a carriage return and some text to the item.

Dim doc As NotesDocument
Dim rtitem As Variant
'...set value of doc...
Set rtitem = doc.GetFirstItem( "ProjectDescription" )
If rtitem.Type = RICHTEXT Then
  Call rtitem.AddNewLine( 1 )
  Call rtitem.AppendText( "Book is 64 pages, full color." )
End If
Call doc.Save( False, True )

If the ProjectDescription item used to contain the text value "Cartoon book for children ages 9-12," it now contains the following:

Cartoon book for children ages 9-12

Book is 64 pages, full color.