Обновление структуры БД Lotus Notes (API)

Обновление структуры БД у клиента с использованием API Lotus Notes:
Можно оформить в виде агента или повесить на кнопку в письме.



Declare Private Function W32_NSFDbOpen Lib "nnotes" Alias "NSFDbOpen" (Byval PathName As Lmbcs String, hDB As Long) As Integer
Declare Private Function W32_NSFDbClose Lib "nnotes" Alias "NSFDbClose" (Byval hDB As Long) As Integer
Declare Private Function W32_DesignRefresh Lib "nnotes" Alias "DesignRefresh" (Byval ServerName As Lmbcs String, Byval hDB As Long, Byval dwFlags As Long, Byval abortCheck As Long, Byval messageProc As Long) As Integer

Sub Initialize()
    RefreshDesign("БазаДанных.nsf","Сервер")
end Sub



Sub RefreshDesign(DB As String, Server As String)
    Dim rc As Integer, hDb As Long
    result = W32_NSFDbOpen(DB, hDb)
    If result <> 0 Then
        msgbox "База данных " & DB & " недоступна!"
    Else
        ResultRefresh = W32_DesignRefresh(Server, hDb, 0, 0, 0)
        If ResultRefresh <> 0 Then
            msgbox Cstr(ResultRefresh) & ": Ошибка обновления структуры!"
        End If
        Call W32_NSFDbClose(hDb)
    End If
End Sub