%REM Function getEmptyDocumentCollection Description: Returns an empty document collection Created Nov 28, 2011 by Sven Hasselbach %END REM Function getEmptyDocumentCollection() As NotesDocumentCollection On Error GoTo errH Dim session As New NotesSession Dim db As NotesDatabase Dim dc As NotesDocumentCollection Set db = session.Currentdatabase Set dc = db.Alldocuments dc.Subtract db.Alldocuments Set getEmptyDocumentCollection = dc the_end: Exit Function errH: Print "getEmptyDocumentCollection() - Error #" & Err & ": '" & Error & "' @ Line " & Erl Resume the_end End Function