例: Database property

次の例は「Products」というアウトラインを作成し、「First Entry」というエントリを追加します。エントリのリンクプロパティは、TEST.NSF データベースに設定されます。エントリがリンクを貼るデータベースの名前は、ステータスバーに表示されます。

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()