「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でしょう。
