次のスクリプトは、ユーザーが現在の文書を開くとその親文書をプリビューペインに表示します。
Sub Postopen(Source As Notesuidocument) source.PreviewParentDoc = True End Sub