Lotus Notes - Problemas con RichText

Tengo un gran problema, a ver si pueden ayudarme: Tengo 2 bases de datos, en una forma tengo un campo rich text ya lleno y su documento debidamente guardado. Necesito desde otra forma de otra base de datos traer el contenido de ese Rich Text para otro campo en esta base de datos, es un poco enredado, pero esa es la idea mas o menos, espero que puedan ayudarme. Gracias anticipadas

Luis

MIra este código

Sub Initialize
Dim ses As New notessession
Dim bd As notesdatabase, bd2 As notesdatabase
Dim doc As notesdocument, doc2 As notesdocument
Dim vista As notesview
Dim campo As notesitem, campo2 As notesitem

Set bd = ses.currentdatabase
Set bd2 = ses.getdatabase("","A.nsf") 'Coge aqui la base donde está el documento con el campo de texto enriquecido
Set doc = bd.createdocument
doc.form = "A"
Set vista = bd2.getview("Todos")
Set doc2 = vista.getfirstdocument ' Para la prueba yo cojo el primero de la vista, tú puedes hacerlo a traves del ID

Set campo2 = doc2.getfirstitem("A")
Set campo = doc2.CopyItem( campo2, "B" )
Call doc.CopyItem( campo, "A" )
doc.save True, True
End Sub

Espero que te ayude ;-))