新規文書かどうかのチェックその2

新規文書かどうかを判断するLotusScriptの第2弾。

新規文書かどうかのチェック
では、NotesDocumentクラスのプロパティということで、バックエンドで判断していたが、今回は、NotesUIDocumentクラスの場合である。
フォームのPostOpenイベントで使うのが良いだろう。

サンプルは前回と同じく、自文書が新規文書かどうかを判断して、結果を表示するという単純なものだ。
Sub Click(Source As Button)
    Dim uiws As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument

    '自文書の取得
    Set uidoc = uiws.CurrentDocument

    If uidoc.IsNewDoc = True Then
        Messagebox "新規文書です。", 0, "新規文書かどうかのチェック"
    Else
        Messagebox "新規文書ではありません。", 0, "新規文書かどうかのチェック"
    End If
End Sub




Lotus Notes/Domino カスタマイズとセキュリティ強化 - 株式会社エフ

コメント