LOTUSSCRIPT/COM/OLE CLASSES

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

See Also