怎样编写定时代理来删除某一时间前的邮件？

怎样编写定时代理来删除某一时间前的邮件？ --------------------编程问答-------------------- 取的邮件文档doc,然后比较两个时间参数,之后doc.remove()就可以了 --------------------编程问答-------------------- 具体怎么写？ --------------------编程问答-------------------- 用LS写的一点代码,希望对你有用:

Sub Initialize
Dim  s As New NotesSession 
Dim db As NotesDatabase
Dim ndb As NotesDatabase
Set db=s.CurrentDatabase
Dim UserMailDb As NotesDatabase
Dim dc As NotesDocumentCollection
Set UserMailDb=db
If UserMailDb.IsOpen Then
Set dc=UserMailDb.Search("(@Date(@Today)-@Date(@Created) )/(60*60*24)>100",Nothing,0)
'删除100天以前的文档
If dc.count>0 Then  
Call dc.RemoveAll(True)
End If
End If

End Sub --------------------编程问答-------------------- 有点难度哦

补充：企业软件 ,  Lotus