Examples: IsHidden, IsHiddenFromNotes, IsHiddenFromWeb, HideFormula, and UseHideFormula properties
This script displays the hide characteristics of the entries in an outline.
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