LOTUSSCRIPT/COM/OLE CLASSES
Examples: Accessing an outline
1. 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
2. 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
3. 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
4. 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()
See Also
Accessing an outline
Glossary
Feedback on
Help
or
Product Usability
?
Help on Help
All Help Contents
Glossary