例: EntryClass property

次の例は、アウトラインの最上位レベルにある 2 番目のエントリを取得し、そのエントリがどの名前付き要素に該当するかを表示します。名前付き要素ではない場合は、「Second entry is not a named element.」というメッセージを返します。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim outline As NotesOutline
  Dim oe As NotesOutlineEntry
  Dim firstOE As NotesOutlineEntry
  Dim secondOE As NotesOutlineEntry
  Dim entryClass As Long
  Set db = session.CurrentDatabase
  Set outline = db.GetOutline("Web site")
  Set firstOE = outline.GetFirst
  If Not (firstOE Is Nothing) Then
    Set secondOE = outline.GetNext(firstOE)
    If Not (secondOE Is Nothing) Then
      While secondOE.Level <> 0
        Set oe = secondOE
        Set secondOE = Outline.GetNext(oe)
      Wend
      If secondOE.Type = OUTLINE_TYPE_NAMEDELEMENT Then
        entryClass = secondOE.EntryClass
        Select Case entryClass
        Case OUTLINE_CLASS_FOLDER: Messagebox "Second _
        entry is a folder"
        Case OUTLINE_CLASS_FORM: Messagebox "Second entry is _
        a form"
        Case OUTLINE_CLASS_FRAMESET: Messagebox "Second entry _
        is a frameset"
        Case OUTLINE_CLASS_NAVIGATOR: Messagebox "Second entry _
        is a navigator"
        Case OUTLINE_CLASS_PAGE: Messagebox "Second entry is a page"
        Case OUTLINE_CLASS_UNKNOWN: Messagebox "Second entry is _
        an unknown design element"
        Case OUTLINE_CLASS_VIEW: Messagebox "Second entry is a view"
        End Select
      Else
        Messagebox "Second entry is not a named element"
      End If
    Else
      Messagebox "There is no second top-level entry"
    End If
  End If
End Sub