.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

Examples: AppendText method
This script adds two lines of text, separated by a carriage return, to the end of the Body item in a document.

Dim doc As NotesDocument
Dim rtitem As Variant
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
 Call rtitem.AppendText( "Add text to the rich text item" )
 Call rtitem.AddNewLine( 1 )
 Call rtitem.AppendText("Add more text to rich text item")
 Call doc.Save( False, True )
End If

See Also