LotusNotesのドラフトに書類が残っているときに警告を出す

Pocket

「Notesメールでドラフトのところに書類が入っているときに書類数を表示してほしい」というリクエスト。
本当は受信ボックスのようにフォルダになっていれば、自動的にカウントして表示してくれるのに、、、ビューだからカウントしてくれないのね。
と言っていても仕方ないので、お手軽な方法で対処。
メールDBを閉じたときに警告を出せばいいので、データベーススクリプトのQuerycloseイベントのところにスクリプトを追加してみる。
---------------------------------------
Sub Queryclose(Source As Notesuidatabase, Continue As Variant)
    Dim ss As New NotesSession
    Dim db As NotesDatabase
    Dim vw As NotesView
    Dim vc As NotesViewEntryCollection
    
    Set db = ss.CurrentDatabase
    Set vw = db.GetView(“($Drafts)”)
    Set vc = vw.AllEntries
    
    If (vc.Count > 0) Then
        Msgbox “ドラフトに書類が” & vc.Count & “個残っています。”, 0, “確 認”
    End If
End Sub
---------------------------------------
まあ、こんな感じでOKでしょう。