LOTUSSCRIPT /COM/OLE のクラス

例:IsHidden プロパティ、IsHiddenFromNotes プロパティ、IsHiddenFromWeb プロパティ、HideFormula プロパティ、UseHideFormula プロパティ
次のスクリプトはアウトラインのエントリの非表示特性を表示します。

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

関連項目