Outlook macroで未読メールを全部削除する

効率化

2020.11.06 2020.04.25

目的
1. ユースケース
code
appendix

目的

在宅勤務で、やたらめったらメールを送られます。

YMT4

Teamsも使ってるんだからそっち使えばいいのに……

とは思うけど、仕方ない……

ということで、メールのinboxフォルダがパンパンで困ったときに、クリック一発で未読メールを全部削除させます。

ユースケース

inboxで、メールのtitle を見る
必要そうなメールだけ既読にする
マクロを起動（←今回の対象）
未読メールが全削除される

あとに残るのは、読む必要があるメールだけ。
スッキリ。

code

' 未読メールを全部削除
Sub DeleteUnreadMail()

Dim objOlFolder ' フォルダ情報
Dim objOlUnReads() ' アイテム情報
Dim objOlItem   ' アイテム情報
Dim lngMsgCnt   ' メッセージ数

If Err.Number = 0 Then
    Set objOlFolder = Application.Session.GetDefaultFolder(6)
    lngMsgCnt = 0
    For Each objOlItem In objOlFolder.Items
        If objOlItem.UnRead = True Then
            ReDim Preserve objOlUnReads(lngMsgCnt)
            Set objOlUnReads(lngMsgCnt) = objOlItem
            lngMsgCnt = lngMsgCnt + 1
        End If
    Next
Else
    WScript.Echo "エラー：" & Err.Description
End If

For n = lngMsgCnt - 1 To 0 Step -1
    objOlUnReads(n).UnRead = False
    objOlUnReads(n).Delete
Next n

End Sub