Sub Click(Source As Button)
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim outline As NotesOutline
 Set db = session.CurrentDatabase
 Set outline = db.CreateOutline("MyOutline")
 Messagebox outline.Name
End Sub

See Also

NotesOutline class

Glossary