Examples: Database property

This example creates an outline called Products and adds an entry to it called "First Entry." The link property of the entry is then set to a database link to TEST.NSF. The name of the database the entry is linked to is printed in the status bar.

Dim session As New NotesSession
Dim db As NotesDatabase
Dim db2 As New NotesDatabase("","Test.nsf")
Dim outline As NotesOutline
Dim entry As NotesOutlineEntry
Set db = session.CurrentDatabase
Set outline = db.CreateOutline("Products")
Call outline.createEntry("First Entry")
Set entryA = outline.getFirst()
Call entryA.SetNoteLink(db2)
Call outline.save()