例: Getting the position of a view entry

次の例では、ビュー階層におけるビューエントリの位置を表示します。

Sub Initialize
  Dim  NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim entry As NotesViewEntry
  Set db = session.CurrentDatabase
  Set view = db.GetView("By Category")
  Set entry = view.GetEntryByKey("Employees")
  Messagebox entry.GetPosition("1988")
End Sub