LOTUSSCRIPT /COM/OLE のクラス
Sub Exiting(Source As Field) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = workspace.CurrentDocument If uidoc.FieldContains( "Conclusion", "disaster" ) Then Messagebox( "Sorry to hear it.") End If End Sub
関連項目