Lotus Notes - Añadir texto a un RichText item

En la versión 4.x la ínea:
Call rtitem.AppendText(message)

añadía el contenido de la variable message al RTitem, pero en la versión R5 no me funciona

¿alguien sabe algo?

Gracias
Antonio

Intentalo con un appendtexttolist, lo he probado en la V.5.0 y si me funciona.
Espero que te sirva el ejemplo
Saludos

Set dc = db.Search (query,fecha, 0)
Set doc = dc.getfirstdocument

While Not doc Is Nothing
Set Memo = db.createdocument

Memo.Form = "Memo"
Memo.Sendto = doc.SendTo
Memo.Origin = "Origin"
Memo.Subject = "Subject"
Memo.Body= ""
Set rtitem = Memo.GetFirstItem( "Body")
a = doc.Field(0)
Call rtitem.APPENDTOTEXTLIST(a)

Call Memo.send(True)