Missing Rich Text object Error

Hi,

I am getting error ‘Missing Rich Text object’ in the agent at the following code:

Dim RTItem as NotesRichTextItem

Set RTItemTemp = doc.GetFirstItem(“Body”)

Call rtitem.AppendRTItem(RTItemTemp)

Can anyone help me out?