Для баз можно настроить блокировки документов, чтобы один и тот же документ нельзя было редактировать одновременно,
Для GetDatabase аналогично:
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim newDoc As NotesDocument
Set db = s.GetDatabase(<server>,<dbpath>)
' или для текщей базы можно: Set db = s.CurrentDatabase
......
......
Set newDoc = doc.CopyToDatabase( db )
' или просто: call doc.CopyToDatabase( db )
При прочтении скорее срабатывает код и что-то делает, нежели ставится флаг.