例: IsIncludeDocuments property (NotesReplicationEntry - LotusScript®)

次のエージェントは、複製に文書が含まれるかどうかを切り替えます。

Sub Initialize
  REM Get local database
  dbName$ = "Footoo"
  Dim db As New NotesDatabase("", dbName$)
  Dim rep As NotesReplication
  Dim re As NotesReplicationEntry
  If Not db.IsOpen Then
    Messagebox "No local database",, dbName$
    Exit Sub
  End If
  
  REM Get source and destination computers
  source$ = "-"
  destination$ = "-"
  
  REM Get replication entry
  Set rep = db.ReplicationInfo
  Set re = rep.GetEntry(source$, destination$, False)
  If re Is Nothing Then
    Messagebox _
    "No replication entry for " & source$ & _
    " and " & destination$,, _
    "No such replication entry"
    Exit Sub
  End If
  
  REM Toggle property and save entry
  If re.IsIncludeDocuments Then
    re.IsIncludeDocuments = False
  Else
    re.IsIncludeDocuments = True
  End If
  Call re.Save()
  Messagebox "Is now " & re.IsIncludeDocuments,, _
  "IsIncludeDocuments"
End Sub