Outlook macro to mark messages as read

[mamfa]

I have multiple sub inboxes in my outlook all of which daily fill up with scheduled emails from our system how can i write a macro that when i click on a particular inbox title it will then mark items within this inbox read?

Hope this is understandable

Sam

 

[vconfused]

You could do something simple like this to prompt for the folder and mark all items as read:

Sub MarkRead()
    Dim fld As Outlook.MAPIFolder
    Dim obj As Object
    
    Set fld = Application.GetNamespace("MAPI").PickFolder
    For Each obj In fld.Items
        If obj.UnRead Then
            obj.UnRead = False
            'obj.Save
        End If
    Next
    Set fld = Nothing
End Sub

[/code]