Refresh All Views
Sub RefreshAllViews(db As NotesDatabase)
‘ posted to http://www.openntf.org/Projects/codebin/codebin.nsf/0/C4BA0B2EC810D7EE8625751C0051534A
‘ written by Mike Mortin, 20081211
Dim s As New NotesSession ‘ use the current db if none is specified
If db Is Nothing Then set db = s.CurrentDatabase ‘ refresh all views
Forall view In db.Views
‘ Print "Refreshing view ‘" & view.Name & "’"
Call view.Refresh
End Forall
End Sub
Original source : http://www.openntf.org/projects/codebin/codebin.ns…
