壹佰网|ERP100 - 企业信息化知识门户

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 871|回复: 2

[新手上路] [求助]关于邮件数据库压缩

[复制链接]
发表于 2004/1/6 13:21:55 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。如果您注册时有任何问题请联系客服QQ: 83569622  。

您需要 登录 才可以下载或查看,没有帐号?注册

x
由于刚开始还不知道对邮件用户可以限额,二个月以后部分用户的邮件数据库狂大,都有800多M了,现在都有进行限额和使用归档,可是即使用户的邮件数据库里只有一封信,数据库仍会有800m,一点都没有小,怎么样才能压缩,使其变小?
 楼主| 发表于 2004/1/7 11:55:05 | 显示全部楼层
有人告诉我了,我也帖上吧!不过我还没试过!

自己做个定时代理
Dim db As New NotesDatabase( "", "toobig.nsf" )
Dim delta As Long
If ( db.PercentUsed < 90 ) Then
&nbsp;&nbsp;delta = db.Compact
&nbsp;&nbsp;Messagebox( "You&#39;ve freed " & delta & " bytes" )
End If

首先判断使用比率,小于90自动压缩
发表于 2004/1/7 14:16:07 | 显示全部楼层
只能压缩本地的数据库的
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|小黑屋|手机版|壹佰网 ERP100 ( 京ICP备19053597号-2 )

Copyright © 2005-2012 北京海之大网络技术有限责任公司 服务器托管由互联互通
手机:13911575376
网站技术点击发送消息给对方83569622   广告&合作 点击发送消息给对方27675401   点击发送消息给对方634043306   咨询及人才点击发送消息给对方138011526

GMT+8, 2025/11/29 23:40 , Processed in 0.011465 second(s), 14 queries , File On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表