例: SelectionFormula property (NotesView - LotusScript®)

次のビューアクションは、現在のビューの選択式を表示します。

Sub Click(Source As Button)
  Dim ws As New NotesUIWorkspace
  Dim uiview As NotesUIView
  Dim view As NotesView
  Set uiview = ws.CurrentView
  Set view = uiview.View
  Messagebox view.SelectionFormula,, "Selection formula"
End Sub

次のビューアクションは、現在のビューの選択式を設定します。

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