Domino Code Fragment

Code Name*
Directing New Users to a Special View		Date*
06/28/2025		Source (or email address if you prefer)*
[email protected]
IP address:.172.70.100.234
Description*
In R4.5 you can write a script that executes whenever a user opens the database. For example, you might want to direct new users to a special view, while letting old users proceed straight to the default view. To do this, write a script for the database object's Postopen event, as follows:		Type*
LotusScript		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
Sub Postopen(Source As Notesuidatabase)

Dim session As New NotesSession
Dim beenherebefore As String

beenherebefore = session.GetEnvironmentString( "$BeenHereBefore", True )
If ( beenherebefore = "" ) Then
Call source.OpenView( "NewUsers" )
Call session.SetEnvironmentVar( "$BeenHereBefore", "Yes" )
End If

End Sub