LOTUSSCRIPT /COM/OLE のクラス

例:QueryAddToFolder イベント
次の 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

関連項目