例: PostSend event

次の PostSend イベントは、文書が送信された後にメッセージを表示します。

Sub Postsend(Source As Notesuidocument)
  Messagebox Source.FieldGetText("Subject"),, _
  "Memo sent to " & Source.FieldGetText("SendTo")
End Sub