例: IsHidden, IsHiddenFromNotes, IsHiddenFromWeb, HideFormula, and UseHideFormula properties

次のスクリプトはアウトラインのエントリの非表示特性を表示します。

Sub Initialize
  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
  While Not(entry Is Nothing)
    msg = ""
    If entry.IsHidden Then
      msg = msg & Chr(10) & "Is hidden in this context"
    Else
      msg = msg & Chr(10) & "Is not hidden in this context"
    End If
    If entry.IsHiddenFromNotes Then
      msg = msg & Chr(10) & "Is hidden in the Notes client"
    Else
      msg = msg & Chr(10) & "Is not hidden in the Notes client"
    End If
    If entry.IsHiddenFromWeb Then
      msg = msg & Chr(10) & "Is hidden in the Web client"
    Else
      msg = msg & Chr(10) & "Is not hidden in the Web client"
    End If
    If entry.UseHideFormula Then
      msg = msg & Chr(10) & "Hide formula is in effect"
      If (entry.HideFormula = "") Then
        msg = msg & Chr(10) & "Hide formula is blank"
      Else
        msg = msg & Chr(10) & "Hide formula: " & _
        entry.HideFormula
      End If
    Else
      msg = msg & Chr(10) & "Hide formula is not in effect"
    End If
    Messagebox msg,, entry.Alias
    Set entry = outline.GetNext(entry)
  Wend
End Sub