自动删除过期邮件的代理

[Tsipporah]

后台中运行一代理自动清除30天前的用户邮件，代码大致如下：
Call datetime.SetNow
Call DateTime.AdjustDay(-31)
Set docdate=New NotesDateTime("")

Set db = dbdir.GetFirstDatabase(DATABASE)
While Not(db Is Nothing)
If Left(db.filepath,5)="mail/" Then
Call db.Open("","")
Set dc=db.AllDocuments
Set doc=dc.GetFirstDocument
x=0
Do While Not(doc Is Nothing)
docdate.LSLocalTime=doc.Created
Set docnext=dc.GetNextDocument(doc)
If ((doc.Form(0)="" Or doc.Form(0)="Memo" ) And datetime.TimeDifference(docdate)>0) Then
Call doc.Remove(True)
x=x+1
End If
Set doc=docnext
Loop
Messagebox "执行完毕 " & db.Title & " 邮件数据库 " & x & " 个邮件删除！"
End If
Set db = dbdir.GetNextDatabase
Wend

cs结构，用户邮件使用notes自带的邮件模板，该代理能按时运行，问题是它只删除用户收件箱中的过期邮件，而发件箱的过期邮件不作处理，在用户的惯用选项中，发送邮件总保持一份拷贝，由于每个用户的邮箱大小有限，致使经常爆满。我的意图是删除邮箱中所有的过期文档，该代理应该如何修正呢？请指教，谢谢！

[chenyg2000]

If ((doc.Form(0)="" Or doc.Form(0)="Memo" ) And datetime.TimeDifference(docdate)>0) Then
Call doc.Remove(True)
x=x+1
End If
这里要修改,你查看一下已发件的相关域属性

[xiaoyuer0851]

呵呵， 不错，学习ing……