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

今回は、新規文書かどうかのチェックだ。
文書の状態に応じて処理を分ける際に活用してほしい。


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

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

    'NotesUIDocumentとはプロパティ名が違うことに注目
    If doc.IsNewNote = True Then
        Messagebox "新規文書です。", 0, "新規文書かどうかのチェック"
    Else
        Messagebox "新規文書ではありません。", 0, "新規文書かどうかのチェック"
    End If
End Sub




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

コメント