想找一小段代码
我想将数据库 A 中用户 san zhang/test 发和收的邮件全部筛选出来，拷贝放到另外一个数据库B里。

实现这样的效果，需要一小段 LotusScript 代码，有谁帮我写一下。

谢谢。


2009.11.08


[解决办法]
Sub Initialize

Dim s As New notessession
'Change "" in the next line to the appropriate server name if the database is not local.

Dim srcdb As New notesdatabase("","e:\nsf\A.nsf")
Dim newdb As New notesdatabase("","e:\nsf\B.nsf")

Dim coll As notesdocumentcollection
Dim doc As notesdocument

username = ""

formular = "@contains(SendTo;username) | @contains(CopyTo;username) | @contains(BlindCopyTo;username)"

Set coll=srcdb.search(formular)
For i = 1 To coll.count

Set doc=coll.getnthdocument(i)
Call doc.copytodatabase(newdb)

Next

End Sub