请问如何查看自己的notes邮箱容量？

如题，谢谢~~~~~~~~~~~~~~~~~~~ --------------------编程问答-------------------- 这个,是服务器分配的吧...... --------------------编程问答--------------------         Dim session As New NotesSession
Dim db As NotesDatabase

Set curdoc = session.DocumentContext
result = Evaluate("@Name([CN];@UserName)",curdoc) 

dbfile$ =  GetUserMailDBName(result(0))

Set db=session.GetDatabase ("",dbfile$)
cur_size=Format(db.Size/1024/1024,"0.00")
        msgbox "当前邮箱大小：" & cur_size --------------------编程问答-------------------- cs下点开属性不就看到了嘛~~~~~~~~服务器上只能做quote --------------------编程问答-------------------- 管理端 --file 页签---mail文件夹视图

补充：企业软件 ,  Lotus