例: PreviewDocLink property

次のスクリプトは、ユーザーがカーソルを特定のフィールドに置くとプリビューペインを表示します。

Sub Entering(Source As Field)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  uidoc.PreviewDocLink = True
End Sub