LOTUSSCRIPT/COM/OLE CLASSES
Sub Click(Source As Button) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = workspace.CurrentDocument Call uidoc.GotoField( "FirstDraft" ) Call uidoc.SelectAll Call uidoc.Copy Call uidoc.GotoField( "Revision" ) Call uidoc.Paste End Sub
See Also