Hallo,
ich bin zwar kein Experte, aber mir ist nur aufgefallen, dass beim Beispiel in der Note Hilfe das rtitem als Variant deklariert wird.
Kannst ja das mal versuchen.
Hier aus der Notes Hilfe:
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
Grüße
Oliver