文章类别：Lotus Notes 来源： 作者： 发表日期：2006-12-8 字体：[大 中 小]

小游戏 | 在线影院 | 幽默笑话 | 源码下载 | Flash MTV | 音乐试听 | 书屋 | 美女写真

---

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

上一篇:如何使用多个mail.box数据库

下一篇:为使Notes客户端正常启动，需要检查哪些文件的正确位置