postopen

Добрый день! Ребят есть скрипт, подскажите мне, как тут работает метод OpenWithFailover, ведь его синтаксис (help) такой: Sub Postopen(Source As Notesuidatabase) Dim ws As New NotesUIWorkspace, DBV As NotesDatabase Dim ses As New NotesSession, ag As NotesAgent Const SRV = "CN=XXVB"...