例: Evaluate ステートメントを使用する

次の例では、[Subject] フィールドの入力を終了したときに @ProperCase を呼び出します。Evaluate の結果によって、Subject アイテムの現在の値が置換されます。

Sub Exiting(Source As Field)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Dim doc As NotesDocument
  Dim eval As Variant
  Set uidoc = workspace.CurrentDocument
  Set doc = uidoc.Document
  eval = Evaluate("@ProperCase(Subject)", doc)
  Call doc.ReplaceItemValue("Subject", eval)
  Call doc.Save(True, False)
End Sub

次のボタンの例は @Sum を呼び出し、[Amounts] フィールドの値の合計を表示します。

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Dim doc As NotesDocument
  Dim sumAmounts As Variant
  Set uidoc = workspace.CurrentDocument
  Set doc = uidoc.Document
  sumAmounts = Evaluate("@Sum(Amounts)", doc)
  Messagebox("Sum of Amounts = " & sumAmounts(0))
End Sub