例: QueryAddToFolder event

次の QueryAddToFolder イベントは、ユーザーが質問に対して [いいえ] と答えた場合に、フォルダへの追加操作を中止します。

(Globals) (Declarations)
%INCLUDE "lsconst.lss"
Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, _
Continue As Variant)
  Dim doc As NotesDocument
  Dim docList As String
  While Not (doc Is Nothing)
    docList = docList & Chr(10) & doc.Subject(0)
    Set doc = Source.Documents.GetNextDocument (doc)
  Wend
  If Messagebox ("Do you want to add these documents to " _
  & Target & "?" & Chr(10) & docList, _
  MB_YESNO + MB_ICONQUESTION, _
  "Add to folder") = IDNO Then
    Continue = False
  End If
End Sub