Zeitabhängige Ansichten ohne Aktualisierungssymbol #3

In einem Kommentar zum Tipp Zeitabhängige Ansichten ohne Aktualisierungssymbol #2 wurde darauf hingewiesen, dass eine weitere Variante darin besteht, die Ansichtenselektionsformel durch einen Agenten z.B. täglich neu schreiben zu lassen.

In LotusScript existiert in der Klasse NotesView die Eigenschaft SelectionFormula, durch die lesend als auch schreibend auf die Selektionsformel eine Ansicht zugegriffen werden kann.

Aus der Online-Hilfe:

Defined in
NotesView

Data type
String

Syntax
To get: formula$ = notesView.SelectionFormula
To set: notesView.SelectionFormula = formula$

Beispiel zum Schreiben des Filters (aus der Online-Hilfe):

Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uiview As NotesUIView
Dim view As NotesView
Dim formula As String
formula = "SELECT (@Modified > [" & (Date - 7) & "])"
Set uiview = ws.CurrentView
Set view = uiview.View
view.SelectionFormula = formula
End Sub