lotusscript删除死信代码请教高手

各位高手，本人系lotus新手，搞了一段删除死信的代码，代码如下：
Sub Initialize
On Error Goto errormsg
Dim RoutingState As String
Dim mailfrom As Variant
Dim db As NotesDatabase
Dim ses As New NotesSession
Dim view As NotesView
Dim doc As NotesDocument
Dim ndoc As notesdocument
Set db = ses.CurrentDatabase
Set view = db.getview("mail")   
Set doc  = view.getfirstdocument()
While Not doc Is Nothing
Set ndoc = view.GetNextDocument(doc)
RoutingState=doc.RoutingState(0) 
mailfrom=doc.GetItemValue("From")
Msgbox mailfrom(0)
If Instr(mailfrom(0),"@xxx.com.cn")=0 Or RoutingState= "DEAD" Then
Call doc.remove(True)
End If

Set doc=ndoc
Wend
errormsg:
Messagebox  "init Error:" & Str(Erl) & "  " & Error
End Sub

问题是：

我有三个mailbox,分别是  mail1.box ,mail2.box, mail3.box
执行上述代码后，只对mail1.box 产生效果，其他两个mailbox无效
请指教如何修正代码，谢谢！ --------------------编程问答-------------------- 代理都在哪个数据库中执行？你是不是有足够的权限？运行中有报错吗？ --------------------编程问答-------------------- 你在每个mail.box里写个定时代理看看。 --------------------编程问答-------------------- To numberlock :代理是在 MAIL1 mailbox -设计 -代理 上创建的，有运行权限，没报错。

To bitwise:  怎么在每个mail.box 里写定时代理？  --------------------编程问答-------------------- 如果仅在mail1上创建代理，你使用的是CurrentDatabase，所以只会处理当前的Mail1.box，如果想处理其他几个，必须分别打开几个数据库，做删除操作；另，mail.box中定时代理都会在第二天失效，替bitwise答。

补充：企业软件 ,  Lotus