LOTUSSCRIPT/COM/OLE CLASSES

Examples: QueryPaste event
This QueryPaste event discontinues a paste operation if the user responds no.

(Globals) (Declarations)
%INCLUDE "lsconst.lss"

Sub Querypaste(Source As Notesuiview, Continue As Variant)
 If Messagebox _
 ("Do you want to proceed with this paste operation?", _
 MB_YESNO + MB_ICONQUESTION, _
 "Paste operation") = IDNO Then
   Continue = False
 End If
End Sub

See Also