例: SetURL method

次の例は、「Web site」アウトラインの最初のエントリをクリックするとき、「ibm.com®」サイトが開かれるように設定します。

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.ibm.com")
  Call outline.Save()
End Sub