Замечание к документу "далее, хотим менять формула отбора и рефрешить (-)"   >>>

Тема: что я делал: (+)

1. Сравнивал дизайн SPOFU и дизайн приватизированного экземпляра (по дате модификации) - выкидывал пользователю диалог с @UpdateViewDesign

Private Function getDesktopDatabaseName(notesRelease As String) As String
Select Case notesRelease
Case "3", "4" : getDesktopDatabaseName = "desktop.dsk"
Case "5" : getDesktopDatabaseName = "desktop5.dsk"
Case "6", "7" : getDesktopDatabaseName = "desktop6.ndk"
End Select
End Function

Private Function getLastModifiedPrivateViewDesign() As Variant
On Error Goto errhandler
Dim desktop As NotesDatabase
Set desktop = session.getDatabase("", getDesktopDatabaseName(getNotesRelease))
If desktop Is Nothing Then Exit Function
On Error Resume Next
If Not desktop.isOpen Then Call desktop.open("", getDesktopDatabaseName(getNotesRelease))
On Error Goto errhandler
If Not desktop.isOpen Then Exit Function
Dim modified As Variant
modified = Cdat(0)
Forall view In desktop.views
If view.name = "(Календарь)" Then
Dim aliases As Variant
aliases = view.aliases
If Ubound(aliases) > 0 Then
If aliases(0) = "($Calendar)" Then
If aliases(1) = "private-calendar" Then
If modified < view.lastModified Then modified = view.lastModified
End If
End If
End If
End If
End Forall
getLastModifiedPrivateViewDesign = modified
Exit Function
errhandler:
Exit Function
Resume Next
End Function

2. Пробегал по навигатору текущей SPOFU-папки и получал все отображённые данные

С кодом поосторожнее, могут ведь быть несколько экземпляров SPOFU с одним именем (допустим, из разных реплик или разных баз)