如何限制Domino邮箱超出限额的用户收发邮件?

12/3/2006来源:Lotus Notes人气:8543

环境 产品:Lotus Domino
平台:跨平台
版本:Domino R4.5x,R4.6x
问题 如何限制邮箱超出限额的用户收发邮件?
解答

以下方法适用于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