Zeitabhängige Ansichten ohne Aktualisierungssymbol #3

Ich erhielt zum Tipp "Zeitabhängige Ansichten ohne Aktualisierungssymbol #2" 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