Copy a rich text field's contents to the clipboard

Copy a field's contents to the clipboard. Doc will be placed in edit mode for script to execute correctly.

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
uidoc.EditMode = True
Call uidoc.GoToField( "fieldname" )
Call uidoc.SelectAll
Call uidoc.Copy
uidoc.EditMode = False

Posted by fbrefere001 on Friday February 23, 2001