Как копировать Richtext поле ?

Sub Initialize
 
Dim sess As New notessession
Dim wksp As New notesuiworkspace
Dim db As notesdatabase
Dim view As notesview
Dim newdoc As notesdocument
Dim TableName As String
Set db=sess.CurrentDatabase
 
Dim docA As NotesDocument
Dim docB As NotesDocument
Dim rtitem As NotesRichTextItem
Dim rtitemA As NotesRichTextItem
Dim rtitemB As NotesRichTextItem
...set values of docA and docB...
Set dc = db.UnprocessedDocuments
Set docA = dc.GetFirstDocument
 
Set docB = New notesdocument( db )
docB.form = "Pechat"
Call docB.save(True, True)
 
Set rtitemA= docA.GetFirstItem("prn_table")
Set rtitemB = New NotesRichTextItem ( docB, "pole1" )
Call rtitem.AppendRtitem(rtitem)
Call rtitemA.CopyItemToDocument( docB, "pole1" )
Call docA.Save( False, True )
Call docB.Save( False, True )
End Sub

Sub Initialize
 
Dim sess As New notessession
Dim db As notesdatabase
dym dc as notesdocumentcollection
Dim docA As NotesDocument
Dim docB As NotesDocument
 
Set db=sess.CurrentDatabase
...set values of docA and docB...
Set dc = db.UnprocessedDocuments
Set docA = dc.GetFirstDocument
 
Set docB = New notesdocument( db )
docB.form = "Pechat"
 
if docA.HasItem("prn_table") Then
docB.CopyItem(docA.GetFirstItem("prn_table"), "pole1")
End if
 
Call docB.Save( true, True )
End Sub