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