如何限制Notes邮箱超出限额的用户收发邮件
以下方法适用于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
如有问题或需要进一步的帮助,请与我们联系:021-51098608 或 将电子邮件发送到 sales@efund.com.cn
地址:上海市斜土路2600号海高大厦702-704室邮编:200030
Copyright ©1998-2008,上海熠德数码科技有限公司. All Rights Reserved.



