LotusScript Trick: Loop Through The Selected Documents And Delete Permanently
Simple and self-explanatory example. Learn and enjoy! Set workspace = New NotesUIWorkspaceSet notesuidb = workspace.CurrentDatabaseSet collection = notesuidb.documentsFor i = 1 To collection.Count Set currentdoc = collection.GetNthDocument(i) Call currentdoc.Removepermanently(True)Next Call workspace.Viewrefresh()
Continue Reading