Examples: CompactWithOptions method

  1. This agent compacts TOOBIG.NSF using the options b, L, and S10.
    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
  2. This agent compacts TOOBIG.NSF using the same options.
    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