Outlook Rule to Delete Unread Email

[Karen615]

Using Outlook 2013




Is it possible to create a rule for the following? I get a lot of email about newsletters and publications. If I do not read the email 48 hours after receiving it, I'd like it to be sent to the deleted folder. Is this possible?



Your help is greatly appreciated.

[gmayor]

You can do it with a macro that runs at startup in the ThisOutlookSession module e.g.

Private Sub Application_Startup()
Dim oFolder As Folder
Dim oItem As MailItem
Dim i As Long
    Set oFolder = Session.GetDefaultFolder(olFolderInbox)
    For i = oFolder.Items.Count To 1 Step -1
        If TypeName(oFolder.Items(i)) = "MailItem" Then
            Set oItem = oFolder.Items(i)
            If oItem.UnRead = True Then
                If Format(oItem.ReceivedTime, "yyyymmdd") <= Format(Date - 3, "yyyymmdd") Then
Debug.Print CStr(oItem.ReceivedTime) & vbTab & oItem.Subject
                    'oItem.Delete 'restore after testing
                End If
            End If
        End If
    Next i
lbl_Exit:
    Set oFolder = Nothing
    Exit Sub
End Sub

[Karen615]

Thank you!