Assign One Rich Text Object to Another Rich Text Object

This section illustrates how to assign one Rich Text object to another. Unlike Text objects, where the object value can be easily set or reassigned, additional steps are required when working with Rich Text objects.

How It Works

One Rich Text object can be assigned to another Rich Text object by using the AppendRTItem method. To utilize this method, both objects must be defined as Rich Text. To assign one Rich Text object to another, call the AppendRTItem method and pass the name of the Rich Text object as a parameter. In the following example, rtItemB is copied into rtItemA.

This approach might be used to copy a Rich Text field from an existing document into a Rich Text field of a new document. This could also be used to copy a Rich Text field into the Body of an email message.

Implementation

The following illustrates how to assign Rich Text values. In this example, the Rich Text field (rtItemB) from a selected view document is appended to another Rich Text field (rtItemA). The result is sent via email to the person that clicked the button. To implement this solution, create an action button on a view and insert the following LotusScript code.

As a reminder, be sure to replace FIELD with the name of a Rich Text field that resides on the form. This field will be appended to the Rich Text field called "Body" and subsequently emailed to the person that clicks the button.

Sub Click(Source As Button)

 '--------------------------------------------
 ' Define the objects
 '--------------------------------------------
 Dim s As NotesSession
 Dim db As NotesDatabase
 Dim collection As NotesDocumentCollection
 Dim newdoc As NotesDocument
 Dim Person As NotesName
 Dim doc As NotesDocument
 Dim rtitemA As Variant
 Dim rtitemB As Variant
 Set s = New NotesSession
 Set db = s.CurrentDatabase
 Set collection = db.UnprocessedDocuments

 '-------------------------------------------------------
 ' Is a document selected?
 '-------------------------------------------------------
 If collection.count = 0 Then
 Msgbox("Please select a document.")
 Else
 '---------------------------------------------------
 ' Create email header
 '---------------------------------------------------
 Set newdoc = New NotesDocument(db)
 Set Person = New NotesName(s.UserName)
 newdoc.Form = "Memo"
 newdoc.SendTo = Person.Abbreviated
 newdoc.Subject = "This is the message subject"

 '---------------------------------------------------
 ' Copy itemB into itemA
 '---------------------------------------------------
 Set doc = collection.GetFirstDocument
 Set rtitemB = doc.GetFirstItem("FIELD")
 Set rtitemA = New NotesRichTextItem(newdoc, "Body")
 Call rtitemA.AppendRTItem(rtitemB)

 '---------------------------------------------------
 ' Send email
 '---------------------------------------------------
 newdoc.Send (False)
 Msgbox "Sample email sent"
 End If

End Sub

Add a Document, View, or Database Link to a Rich Text Field