如何限制邮箱超出限额的用户收发邮件?
解答 以下方法适用于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
plumlee 回复于：2006-08-02 16:56:29
谢谢分享 ！
unix狂人 回复于：2006-08-03 11:59:57
请问管理员在邮箱模板中的“memo”表单的Queryopen事件在什么地方，怎么找不到，请指点，谢谢！
daly 回复于：2006-08-08 12:37:48
使用designer打开用户邮箱数据库找到“memo” 双击打开该表单 ，在“对象”栏里可以找到这项。
|
