Sub Postopen(Source As Notesuidocument)
Dim session As New NotesSession
If source.IsNewDoc Then
Call source.FieldSetText( "Location", _
session.GetEnvironmentString( "ENVLoc" ) )
End If
End Sub
Sub Querysave(Source As Notesuidocument, _
Continue As Variant)
Dim session As New NotesSession
Call session.SetEnvironmentVar("ENVLoc", _
source.FieldGetText("Location"))
End Sub