Mark unread email as read by vba

[kamel83]

I need help of getting the formula to make a applucation that makes unread mail in outlook as read

 

[Domenic]

First, set the following reference...

Visual Basic Editor (Alt+F11) >> Tools >> References >> check/select Microsoft Outlook XX.0 Object Library >> click OK

Then copy/paste the following code into a regular module (Visual Basic Editor >> Insert >> Module)...

Option Explicit

Sub MarkEmailsRead()

    Dim olApp As Outlook.Application
    Set olApp = New Outlook.Application
   
    Dim olNS As Outlook.Namespace
    Set olNS = olApp.GetNamespace("MAPI")
   
    Dim olInbox As Outlook.Folder
    Set olInbox = olNS.GetDefaultFolder(olFolderInbox)
   
    Dim olItems As Outlook.Items
    Set olItems = olInbox.Items.Restrict("[UNREAD]=TRUE")
   
    Dim olItem As Variant
    For Each olItem In olItems
        If TypeName(olItem) = "MailItem" Then
            olItem.UnRead = False
        End If
    Next olItem
   
End Sub

Hope this helps!