LOTUSSCRIPT/COM/OLE CLASSES
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
See Also