通过LS调用服务器命令实现压缩数据库

 

Sub Initialize()
 On Error GoTo a
 '压缩源数据库,减小体积
 Dim session As New NotesSession
 Dim CompactDB As Variant
 
 'CompactDB是一个自己定义的变量，叫什么无所谓。
 'session.SendConsoleCommand：该方法是用于调用服务器命令的，比如替换邮件模板等都可以...
 MsgBox "压缩begin"
 
 CompactDB = session.SendConsoleCommand("","load compact -B highcomoa/application/ggtz.nsf")

 MsgBox "压缩end"
 
 Exit Sub
a:
 MsgBox "错误在代理agent_yasuo的第" & Erl & "行，描述：---" & error
 
End Sub