LotusScript Trick: Loop Through The Selected Documents And Delete Permanently

Programming Tips-And-Tricks

Simple and self-explanatory example. Learn and enjoy!

Set workspace = New NotesUIWorkspace
Set notesuidb = workspace.CurrentDatabase
Set collection = notesuidb.documents

For i = 1 To collection.Count
Set currentdoc = collection.GetNthDocument(i)
Call currentdoc.Removepermanently(True)
Call workspace.Viewrefresh()

Leave a Reply

Your email address will not be published. Required fields are marked *