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.178.36
Description*
This script executes whenever a user opens the database and directs new
users to a special view, while letting old users proceed straight to the default view.		Type*
LotusScript		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
This script 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:

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