The discrepancies seem to have caused Outlook to lose track of what state deleted emails should be in. Outlook would delete things, but the syncing would go screwy, and it looks like Outlook was pulling updates from the server before sending its own updates back.

The answer marked as working did resolve my issue, though I occasionally still saw some odd behaviors.Ī little more digging around revealed that the root cause was a sync issue between Outlook and the email server. Follow-up check: False (item is read - this is incorrect).After pause: False (item is read - this is incorrect).After mark read: False (item is read - this may or may not be correct).At start: True (item is unread - this is correct).If Not Item Is Nothing Then Set oDeleted = Itemĭebug.Print 'Follow-up check: ' & CheckItem.UnRead 'Should be False 'Allows check-up on the deleted item after event-handler is done with it.

Private Function RememberItem(Optional ByVal Item As Object) As Object RememberItem Item 'Remember which email this isĭebug.Print 'At start: ' & Item.UnRead 'Should be Trueĭebug.Print 'After mark read: ' & Item.UnRead 'Should be Falseĭebug.Print 'After pause: ' & Item.UnRead 'Should be False unless item has become Unread Private Sub DeletedItems_ItemAdd(ByVal Item As Object) Here is the code I am using to check how Outlook is seeing the read/unread status of the deleted emails. Set DeletedItems = Session.GetDefaultFolder(olFolderDeletedItems).Items Option Explicitĭim WithEvents DeletedItems As Outlook.Items In Outlook 2010, using the code below, anything I delete or move into the trash folder is automatically marked as read.

Mark message as read outlook 2016