lotusscript删除死信代码请教高手

问题描述

各位高手，本人系lotus新手，搞了一段删除死信的代码，代码如下：SubInitializeOnErrorGotoerrormsgDimRoutingStateAsStringDimmailfromAsVariantDimdbAsNotesDatabaseDimsesAsNewNotesSessionDimviewAsNotesViewDimdocAsNotesDocumentDimndocAsnotesdocumentSetdb=ses.CurrentDatabaseSetview=db.getview("mail")Setdoc=view.getfirstdocument()WhileNotdocIsNothingSetndoc=view.GetNextDocument(doc)RoutingState=doc.RoutingState(0)mailfrom=doc.GetItemValue("From")Msgboxmailfrom(0)IfInstr(mailfrom(0),"@xxx.com.cn")=0OrRoutingState="DEAD"ThenCalldoc.remove(True)EndIfSetdoc=ndocWenderrormsg:Messagebox"initError:"&Str(Erl)&""&ErrorEndSub问题是：我有三个mailbox,分别是mail1.box,mail2.box,mail3.box执行上述代码后，只对mail1.box产生效果，其他两个mailbox无效请指教如何修正代码，谢谢！

解决方案

解决方案二：
代理都在哪个数据库中执行？你是不是有足够的权限？运行中有报错吗？
解决方案三：
你在每个mail.box里写个定时代理看看。
解决方案四：
Tonumberlock:代理是在MAIL1mailbox-设计-代理上创建的，有运行权限，没报错。Tobitwise:怎么在每个mail.box里写定时代理？
解决方案五：
如果仅在mail1上创建代理，你使用的是CurrentDatabase，所以只会处理当前的Mail1.box，如果想处理其他几个，必须分别打开几个数据库，做删除操作；另，mail.box中定时代理都会在第二天失效，替bitwise答。