LOTUSSCRIPT/COM/OLE CLASSES
Sub Click(Source As Button) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim r As String Set uidoc = workspace.CurrentDocument Call uidoc.Save r = uidoc.FieldGetText( "Rating" ) Select Case r Case "Good": Call uidoc.Categorize( "Successful Projects" ) Case "Bad": Call uidoc.Categorize( "Unsuccessful Projects" ) Case "Mediocre": Call uidoc.Categorize( "Mediocre Projects" ) End Select Call uidoc.Close End Sub
See Also