件名、本文、差出人が空白のメールを受信時に削除するマクロのコメントにて以下のご要望をいただきました。
既に受信してしまった空白メールを纏めて削除する場合は、どのようにすればよいのでしょうか?
受信時に削除するマクロを設定する前に受信した空白メールについて削除するマクロは以下のようなものになります。
' ここをトリプルクリックでマクロ全体を選択できます。
Public Sub DeleteEmptyMail()
Dim fldInbox As Folder
Dim i As Integer
' 受信トレイの空白メールを削除する場合は以下の記述になります
Set fldInbox = Session.GetDefaultFolder(olFolderInbox)
' 現在選択中のフォルダーの空白メールを削除する場合は以下の記述になります
'Set fldInbox = ActiveExplorer.CurrentFolder
'
For i = fldInbox.Items.Count To 1 Step -1
With fldInbox.Items(i)
If .Subject = "" And .Body = "" And .SenderName = "" Then
.UnRead = False ' 既読にする
.Delete ' 削除する
End If
End With
Next
End Sub