Examples: CutoffInterval property

This script checks the number of days after which documents are automatically deleted and sets the interval to 90 days.

Dim session As New NotesSession
Dim db As NotesDatabase
Dim rep As NotesReplication
Set db = session.CurrentDatabase
Set rep = db.ReplicationInfo
If rep.CutOffInterval <> 90 Then
  rep.CutOffInterval = 90
End If
Call rep.Save()