例: InPreviewPane property

次のスクリプトは、文書がプリビューペインからアクセスされていなければ、その文書を編集モードにします。

Sub Postopen(Source As Notesuidocument)
  If Not source.InPreviewPane Then
    source.EditMode = True
  End If
End Sub