- This example displays the properties of an outline.
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim outline As NotesOutline
Set db = session.CurrentDatabase
Set outline = db.GetOutline("MyOutline")
Messagebox outline.Alias
Messagebox outline.Comment
End Sub
- This example displays the Label property of the first outline
entry.
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim outline As NotesOutline
Dim oe As NotesOutlineEntry
Set db = session.CurrentDatabase
Set outline = db.GetOutline("abba")
Set oe = outline.GetFirst()
Messagebox oe.Label
End Sub
- This example displays the FrameText property of the last outline
entry.
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim outline As NotesOutline
Dim oe As NotesOutlineEntry
Set db = session.CurrentDatabase
Set outline = db.GetOutline("abba")
Set oe = outline.GetFirst()
Messagebox oe.FrameText
End Sub
- This example creates an entry called Munchkin and adds it to the
Cats outline. It will appear as the last entry at the top level of
the outline.
Dim session As New NotesSession
Dim db As NotesDatabase
Dim outline As NotesOutline
Dim entry As NotesOutlineEntry
Set db = session.CurrentDatabase
Set outline = db.GetOutline("Cats")
Set entry = outline.CreateEntry("Munchkin")
Call outline.save()