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