What's my mail file size?

snowdot23

于 2005-12-25 14:02:00 发布

阅读量1.4k

点赞数

CC 4.0 BY-SA版权

分类专栏： lotus 文章标签： file button dialog insert access less

本文链接：https://blog.youkuaiyun.com/snowdot23/article/details/561651

lotus 专栏收录该内容

50 篇文章

订阅专栏

博客介绍了一种让用户查看邮件文件占用磁盘空间的方法。通过在Notes客户端内联网主页或文档区域的按钮中插入特定代码，只要用户能通过Notes客户端访问该按钮，对话框就会返回邮件文件所在服务器、目录及大小等信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

We all know, users could care less (most of them, unless you've hounded them enough) or wouldn't even know how to check their mail file size, right? Well, if you have a homepage on your Notes client intranet, or an area where users will eventually stumble upon documents, insert the following code in a button and it will inform your users how much disk space their mail file is utilizing:
Dim s As New NotesSession
Dim db As NotesDatabase
Dim uname As String
Dim mailfileloc As Variant
Const MB_OK = 1
Const MB_ICONINFORMATION=64
boxtype& = MB_OK + MB_ICONINFORMATION

Set db=s.CurrentDatabase

uname = s.CommonUserName
srvname = Evaluate("@Name([CN];@Subset(@MailDBName;1))")
mailfileloc = Evaluate("@Subset(@MailDBName;-1)")

Dim mydb As New NotesDatabase( Cstr(srvname(0)), Cstr(mailfileloc(0)))

Msgbox "Server: " & srvname(0) & Chr$(13) _
& "Db directory and db name: " & mailfileloc(0) & Chr$(13) & Chr$(13)_
& "The size of your mail file is: " _
& Round(mydb.Size/1048576, 2) & "Mb", boxtype&, "Mail file of " & uname & "..."

As long as the user has access to the button via their Notes client, the dialog box should return the appropriate information to them.