Examples: SetURL method

This example sets the first entry in the Web site outline to open the hcl.com Web site when clicked.

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim outline As NotesOutline
  Dim oe As NotesOutlineEntry
  Set db = session.CurrentDatabase
  Set outline = db.GetOutline("Web site")
  Set oe = outline.GetFirst
  oe.SetURL("http://www.hcl.com")
  Call outline.Save()
End Sub