Domino Code Fragment

Code Name*
Copy one Richtext field to another		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.3.145.170.65
Description*
Copies richtext field from docA and writes it to docB		Type*
LotusScript		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
Sub Initialize
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Set db = session.currentdatabase
    Dim docA As NotesDocument
    Dim docB As NotesDocument
    Dim item As NotesItem
    Set docA = db.GetDocumentByUNID( "321302650BDE40388525679E0056CE7D" )
    Set docb = db.GetDocumentByUNID( "82B7AEEA110C63A28525679E00519CF7" )
    Set item = docA.GetFirstItem( "RT" )
    Call item.CopyItemToDocument(docB,"RT")
    Call docB.Save( False, True )    
End Sub