例: StampAll method

次の例は、ユーザーに値の入力を求め、入力された値をデータベースの各文書の Subject アイテムに書き込みます。

Sub Click(Source As Button)
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim dc As NotesDocumentCollection
  Dim doc As NotesDocument
  
  Set db = session.CurrentDatabase
  Set dc = db.FTSearch("Business reports",10)
  newField = Inputbox("NewField value?")
  Call dc.StampAll("Subject", newField)
End Sub