例: OnUnload event

次の OnUnload イベントは、終了するかどうかをユーザーに確認します。

%INCLUDE "lsconst.lss"

Sub Onunload(Source As Notesuidocument, _
Continue As Variant)
  If Messagebox _
  ("Do you really want to exit?", _
  MB_YESNO, "Exit?") = IDNO Then
    Continue = False
  End If
End Sub

次の OnUnload イベントは、現在の文書をメールで送信したい場合、[SendTo] フィールドにリストされたユーザーにメールで送信します。

%INCLUDE "lsconst.lss"

Sub Onunload(Source As Notesuidocument, _
Continue As Variant)
  If Messagebox _
  ("Do you want to mail this document?", _
  MB_YESNO, "Exit?") = IDYES Then
    Call Source.Send
  End If
End Sub