例: KeepSelectionFocus property

次のスクリプトは、アウトラインエントリが選択したものにフォーカスを当てているかどうかを示します。

Dim s As New NotesSession
Dim db As NotesDatabase
Dim outline As NotesOutline
Dim entry As NotesOutlineEntry
Set db = s.CurrentDatabase
Set outline = db.getOutline("DiscOutline")
Set entry = outline.GetFirst
If (entry.KeepSelectionFocus) Then
  Messagebox "Keeps selection focus",, entry.Alias
Else
  Messagebox "Does not keep selection focus",, entry.Alias
End If