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()

See Also

Save method

Glossary