Domino Code Fragment

Code Name*
Queydocumentdelete event		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.3.22.100.180
Description*
Will warn user of deletion of seleted documents		Type*
LotusScript		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
This code goes into your database design/other/ database script /Querydocumentdelete
Files/Graphics attachments (if applicable): Code:
(Options)
Option Declare

Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
   
'-- access the current ui database
    Dim uidbWorkbench As notesUIdatabase
    Set uidbWorkbench = source
   
'-- return the collection of selected documents
    Dim collSelectedDocsInWorkbench As notesdocumentcollection
    Set collSelectedDocsInWorkbench = uidbWorkbench.documents
   
'-- prompt for delete, exit if No
    Dim nContinue As Integer    
    nContinue = Messagebox ("Continue deleting " & Chr(13) & _
    collSelectedDocsInWorkbench .count & _
    " selected documents?", 4 + 16 +  256 , "Delete Selected?")
    If nContinue = 7 Then
         continue = False
         Exit Sub
    End If
   
'-- continue delete
    continue = True
End Sub