Examples: URLOpen method

This script opens the user's specified home page each time they open the Personal Web Navigator database:

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