//В кратце: заходим в личную папку, запускаем агент, грохаем текущую папку (БД закрывается), при новом заходе в папку - она автоматом создаётся по новой папке-шаблону, т.е. уже с новым дизайном.
Sub Initialize
Set NUIWS = New NotesUIWorkspace
Dim NUIV As NotesUIView
Dim Folder As NotesView
Dim ND As NotesDocument
Set NUIV = NUIWS.CurrentView
If NUIV Is Nothing Then
Messagebox {Зайдите в папку "Поиск" и запустите агент снова.}, 48, "Lotus Notes"
Exit Sub
End If
Set Folder = NUIV.View
If Folder.Name<>"Поиск кандидатов" Then
Messagebox {Зайдите в папку "Поиск" и запустите агент снова.}, 48, "Lotus Notes"
Exit Sub
End If