LOTUSSCRIPT/COM/OLE CLASSES


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

See Also