例: Categorize method

次のフォームアクションスクリプトは現在の文書を保存し、分類してから閉じます。ダイアログボックスは表示されません。文書の分類は [Rating] フィールドの内容に基づいて行います。[Rating] フィールドが空のとき、文書は保存されてから閉じられるだけで分類はされません。アクションが表示されるのは、文書が編集モードのときだけです。

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