P
PeNgViN213
Добрый день! Ребят есть скрипт, подскажите мне, как тут работает метод 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"
If Not source.Database.Server = SRV Then
Set DBV = New NotesDatabase("","")
DBV.OpenWithFailover SRV, source.Database.FilePath
Source.Close
ws.Opendatabase DBV.Server, DBV.Filepath
End If
End Sub