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