例: SetNoteLink method

次の例は「products」アウトラインの最初のエントリの Type プロパティを [リンク] で [データベース] に設定します。[値] プロパティを、リンクするデータベースの名前に設定します。この場合、URLTESTER.NSF というデータベースです。notesDatabase は最初のパラメータで、残りの 2 つのパラメータについては、空のオブジェクトを渡す必要のないことに注意してください。
```
Dim session As New NotesSession
Dim db As NotesDatabase
Dim db2 As New NotesDatabase("","")
Dim outline As NotesOutline
Dim entry As NotesOutlineEntry

Set db = session.CurrentDatabase
Set outline = db.GetOutline("products")
Set entry = outline.GetFirst()
Call db2.Open("","urlTester.nsf")
Call entry.SetNoteLink(db2)
Call outline.save()	
```
次の例は「products」アウトラインにある最初のエントリの子エントリの Type プロパティを [リンク] で [ビュー] に設定します。[値] プロパティを「By Category」に設定します。notesView が 2 番目のパラメータのため、最初のパラメータについては空のオブジェクトが渡されますが、3 番目のパラメータでは必要ないことに注意してください。
```
Dim session As New NotesSession
Dim db As NotesDatabase
Dim outline As NotesOutline
Dim entryA As NotesOutlineEntry
Dim entryB As NotesOutlineEntry
Dim v As NotesView
Dim emptyDB As NotesDatabase

Set db = session.CurrentDatabase
Set v = db.GetView("By Category")
Set outline = db.GetOutline("products")
Set entryA = outline.GetFirst()
Set entryB = outline.getChild(entryA)
Call entryB.SetNoteLink(emptyDB,v)
Call outline.save()	
```

次の例は「products」アウトラインの最後のエントリの Type プロパティを [リンク] に設定し、[値] プロパティを文書コレクションの最初の文書に設定します。notesDocument が 3 番目のパラメータのため、1 番目と 2 番目のパラメータは空のオブジェクトとして渡されることに注意してください。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim outline As NotesOutline
Dim entry As NotesOutlineEntry
Dim v As NotesView
Dim emptyDB As NotesDatabase
Dim emptyView As NotesView

Set db = session.CurrentDatabase
Set collection = db.AllDocuments
Set doc=collection.GetFirstDocument
Set outline = db.GetOutline("products")
Set entry = outline.GetLast()
Call entry.SetNoteLink(emptyDB,emptyView,doc)
Call outline.save()