We wanted to have users launch a Web site directly from a view. We created a form, which contained the Web site name and the URL. We created a view to show these documents. The column containing the URL was formatted to resemble a hyperlink. To actually launch the Web site, we included code that would run on the PostOpen event. However, this did not allow the users to edit the document. To solve this problem, we require the users to select the document and then press a button called "Edit Web Link" which opens the document in edit mode. The code checks the mode to determine whether to open the document for editing or launch the Web site.
Sub Postopen(Source As Notesuidocument) Dim ws As New NotesUIWorkspace Dim doc As NotesDocument If source.EditMode = False Then Set doc = source.document Call ws.URLOpen(doc.WebURL) source.close End If End Sub