LOTUSSCRIPT/COM/OLE CLASSES
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