邮件自动删除源码(asp.net) - .NET技术 / ASP.NET

我想做一个邮件自动删除的功能,可以通过时间或者空间大小来删除过期的邮件.
哪位大哥有源码给小弟我发一个呀,先谢谢了.急用

也可以发到我邮箱里,谢谢(kuyouqing@vip.qq.com)

---

板凳占位先

---

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
这样可以实现在这个功能吗?