例: Save method

次のスクリプトは、現在のデータベースの複製の優先順位を変更し、結果を保存します。

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