例: CompactWithOptions method

次のエージェントは、b、L、S10 のオプションを使用して、TOOBIG.NSF を圧縮します。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Set db = session.GetDatabase("", "TooBig")
  If Not db.Isopen Then
    Messagebox "Could not open",, "TooBig"
    Exit Sub
  End If
  delta& = db.CompactWithOptions("bLS10")
  Messagebox delta&,, "Size difference in bytes"
End Sub

次のエージェントは、上記と同様のオプションを使用して、TOOBIG.NSF を圧縮します。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Set db = session.GetDatabase("", "TooBig")
  If Not db.Isopen Then
    Messagebox "Could not open",, "TooBig"
    Exit Sub
  End If
  options& = CMPC_RECOVER_REDUCE_INPLACE + CMPC_NO_LOCKOUT
  delta& = db.CompactWithOptions(options&, "10")
  Messagebox delta&,, "Size difference in bytes"
End Sub