LOTUSSCRIPT /COM/OLE のクラス
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
関連項目