- This example sets the Type property of the first entry in the
products outline to Link - Database and the Value property to the
name of the database being linked to -- in this case, it's a database
called URLTESTER.NSF Note that notesDatabase is the first parameter
and does not require empty objects to be passed for the remaining
two parameters.
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()
- This example sets the Type property of the child of the first
entry in the products outline to Link - View and the Value property
to By Category. Note that because notesView is the second parameter,
an empty object is passed in for the first parameter, but the third
parameter is not needed.
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()
- This example sets the Type property of the last entry in the products
outline to Link and the Value property to the first document in the
document collection. Note that the first and second parameters are
passed in as empty objects because the notesDocument is the
third parameter.
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()