Lotus Notes如何自动删除mail.box里的死信

IMAP

Lotus Notes的管理员经常会遇到因为垃圾邮件造成的大量死信。问题出现在收到服务器上的邮件不能成功发送给本地的用户，同时又不能将邮递失败报告发送给发件人。那么如何自动删除mail.box里的死信呢?

J2SE

以下方法适用于Domino/Notes 4.5x,4.6x。
在Domino/Notes使用过程中，如果用户邮箱过大，管理员可以在邮箱模板中的“memo”表单的Queryopen事件中加以下代码，限制用户邮箱过大。(其中50000000表示邮箱限额为50M)
Sub Queryopen(Source As Notesuidocument,Mode As Integer,Isnewdoc As Variant, Continue As Variant)

Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim size As Double
Dim Quota As Double
size = db.size
if size > 50000000 Then 'bytes

Msgbox “您的信箱已太大，请先删除部分信件后再压缩信箱，压缩完成后，即可写信。”
Continue = False
Exit Sub

End If

End Sub

ylhylhylh

谢谢您了，搂主