Zeitabhängige Ansichten ohne Aktualisierungssymbol #2

Ich erhielt zum Tipp Zeitabhängige Ansichten ohne Aktualisierungssymbol #1 einen Hinweis, 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