Examples: InPreviewPane property
This script puts the document in Edit mode if it is not being accessed from the preview pane.
Sub Postopen(Source As Notesuidocument)
If Not source.InPreviewPane Then
source.EditMode = True
End If
End Sub