.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

Examples: PostPaste event
This PostPaste event uses a variable that is global to the NotesUIView events to count the number of paste operations and to display the total.

(Declarations)
Dim pasteCount As Integer

Sub Postopen(Source As Notesuiview)
 pasteCount = 0
End Sub

Sub Postpaste(Source As Notesuiview)
 pasteCount = pasteCount + source.Documents.Count
End Sub

Sub Queryclose(Source As Notesuiview, Continue As Variant)
 Messagebox pasteCount & " documents pasted", , _
 "Paste operations"
End Sub

See Also