例: QueryClose event

次のスクリプトは現在の文書を終了してよいかどうかを確認するメッセージを表示します。[はい] ボタンがクリックされたときは、この文書を閉じます。[いいえ] がクリックされると開いたままにします。
次のスクリプトで Messagebox 関数に関連する定数を使用するには、ファイル LSCONST.LSS をインクルードする必要があります。
```
%INCLUDE "lsconst.lss"
Sub Queryclose(Source As Notesuidocument, _
Continue As Variant)
  Dim answer As Integer
  answer = Messagebox _
  ( "Do you want to exit this document?", _
  MB_YESNO, "Document" )
  If ( answer = IDNO ) Then
    continue = False
  End If
End Sub
```
ユーザーが現在編集中の文書を閉じようとすると、Notes は文書を保存するかどうかをユーザーに確認します。ユーザーの選択にかかわらずこのスクリプトは、文書をメールで送信するかどうかを確認します。[はい] ボタンがクリックされると、現在の文書は [SendTo] フィールドにリストされたユーザーにメールで送信されます。
次のスクリプトで Messagebox 関数に関連する定数を使用するには、ファイル LSCONST.LSS をインクルードする必要があります。
```
%INCLUDE "lsconst.lss"
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  Dim answer As Integer
  If source.EditMode Then
    answer = Messagebox _
    ("Do you want to mail this doc?", MB_YESNO, "Mail" )
    If ( answer = IDYES ) Then
      Call source.Send
    End If        
  End If
End Sub
```