LOTUSSCRIPT/COM/OLE CLASSES
Sub Onchange(Source As Field) Dim ws As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = ws.CurrentDocument Call uidoc.FieldSetText("SubjectDisplay", _ uidoc.FieldGetText("Subject")) End Sub
See Also