Postopen
-----------------------------------------------------------
例）
Sub Postopen(Source As Notesuidocument)
'新規文書オープン時のみ下記チェック。
If Source.IsNewDoc = True Then
処理内容記述
End If
End Sub
-----------------------------------------------------------
Querymodechange
-----------------------------------------------------------
例）
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
'読み取りから編集モードに変更する場合の制御
If Not Source.EditMode Then
処理内容記述
End If
End Sub
-----------------------------------------------------------
