Mark Emails Read and Complete with VBA

Done.bas

Public Sub Done()
Dim Items As VBA.Collection
Dim oItem As Object

Set Items = GetCurrentItems
For Each oItem In Items
    If TypeOf oItem Is Outlook.MailItem Then
        oItem.MarkAsTask (olMarkComplete)
        oItem.UnRead = False
        oItem.Save  
    End If
Next
End Sub

GetCurrentItems.bas

Function GetCurrentItems() As VBA.Collection
    Dim c As VBA.Collection
    Dim Sel As Outlook.Selection
    Dim obj As Object
    Dim i&
    
    Set c = New VBA.Collection
    If TypeOf Application.ActiveWindow Is Outlook.Inspector Then
        c.Add Application.ActiveInspector.CurrentItem
    Else
        Set Sel = Application.ActiveExplorer.Selection
        If Not Sel Is Nothing Then
            For i = 1 To Sel.Count
                c.Add Sel(i)
            Next
        End If
    End If
    Set GetCurrentItems = c
End Function