Create an empty NotesDocumentCollection
Dim coll As NotesDocumentCollection Dim tomorrow As New NotesDateTime("") tomorrow.SetNow tomorrow.AdjustDay 1 Set coll = db.Search("@False", tomorrow, 1) Call coll.AddDocument(document)