例: URLOpen method

次のスクリプトは、ユーザーが個人 Web ナビゲータデータベースを開くたびに、ユーザーが指定したホームページを開きます。

Sub Postopen(Source As Notesuidatabase)
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim profile As NotesDocument
  'intialize variables
  Set db = Source.Database
  Set view = db.GetView("(Internet Profile)")
  Set profile = view.GetFirstDocument
  If (profile Is Nothing) Then Exit Sub
  'open up the url
  If (profile.StartUpOptions(0) = "1") Then
    Set w = New NotesUIWorkspace
    w.UrlOpen profile.OpenUrl(0)
  End If
End Sub