当ブログに掲載しているサンプルは、すべて利用者の自己責任という形でお願いします。
ただし、明らかな不具合がある場合、ご連絡いただければ、訂正記事を出します。
また、こちらのサンプルは、別のサイト等への公開、転載は一切禁止しています。
どうしてもと言う場合は、筆者にあらかじめご連絡ください。

テクてく Lotus 技術者 Slack に参加しよう!

2008年11月13日木曜日

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

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


サンプルは、自文書が新規文書かどうかを判断して、結果を表示するという単純なものだ。
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 カスタマイズとセキュリティ強化 - 株式会社エフ

0 件のコメント: