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

环境

产品：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