例: PostSave event

次のスクリプトは文書を保存した後に閉じます。

Sub Postsave(Source As Notesuidocument)  
  Call Source.Close
End Sub

次の例は、新規または変更された文書のコピーを、文書を保存した後に [Reviewers] フィールドにリストされているユーザーに送信します。

Sub Postsave(Source As Notesuidocument)
  Dim session As New NotesSession
  Dim workspace As New NotesUIWorkspace
  Dim db As NotesDatabase
  Dim uidoc As NotesUIDocument
  Dim doc As NotesDocument
  Dim doc2 As NotesDocument
  Dim item As NotesItem
  Set uidoc = workspace.CurrentDocument
  Set doc = uidoc.Document
  Set db = session.CurrentDatabase
  Set doc2 = New NotesDocument(db)
  Set item = doc.GetFirstItem("Subject")
  Call item.CopyItemToDocument(doc2, "Subject")
  Set item = doc.GetFirstItem("Reviewers")
  Call item.CopyItemToDocument(doc2, "SendTo")
  Set item = doc.GetFirstItem("Body")
  Call item.CopyItemToDocument(doc2, "Body")
  Call doc2.Send(False, doc.Reviewers)
End Sub