LOTUSSCRIPT /COM/OLE のクラス

例:Categorize メソッド
次のフォームアクションスクリプトは現在の文書を保存し、分類してから閉じます。ダイアログボックスは表示されません。文書の分類は [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

関連項目