Dim session As New NotesSession
Dim db1 As NotesDatabase '文档原来所存在的数据库
Set db1 = session.CurrentDatabase
Dim db2 As New NotesDatabase( "", "新数据库.nsf" ) '文档拷贝到的目标数据库
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Set collection = db1.AllDocuments
Set collection = db1.Search( selection, dateTime, 0 )'搜索原数据库中负荷条件
的文档,此处代码按自己需要修改
Set doc = collection.GetFirstDocument()
While Not(doc Is Nothing)
Call doc.CopyToDatabase( db2 )
Set doc = collection.GetNextDocument(doc)
Wend