Mark email 'Read' in specific subfolder

[delaing]

I have tried various vba codes sourced from various Internet forums on this common request, yet none are working. I'm sure part of this is due to my cobbled-together understanding of VBA. And most deal only with the primary Inbox and I don't understand how to modify them to point to a subfolder of the Inbox. (for 2010)

I am wanting a macro(s) that will simply mark unread emails as Read for two scenarios:

1) clicking a Quick Access button (tied to the macro) to Mark as Read messages within whichever Inbox/subfolder is currently selected.

2) macro to Mark as Read a specific Inbox/subfolder which is hard-coded in the macro.


If this is not the proper forum to request this, let me know.

Thank you,
Delain

[skatonni]

Option Explicit

Private Sub Mark_Read_FolderCurrent()

' Mark all items in selected folder as read

Dim fldr As Folder
Dim currItemSel As Object
Dim itm As Object
Dim itms As Items

Set currItemSel = ActiveExplorer.Selection(1)
Set fldr = currItemSel.Parent
Set itms = fldr.Items

For Each itm In itms
    itm.UnRead = False
Next

Set currItemSel = Nothing
Set fldr = Nothing
Set itms = Nothing
Set itm = Nothing

End Sub

To reference a subfolder.

Set fldr = Session.GetDefaultFolder(olFolderInbox)

Set fldr = fldr.Folders("Name of subfolder directly under default Inbox")

' if more subfolders then specify all the folders in the chain
'Set fldr = fldr.Folders("Name sub-subfolder in the chain")
'Set fldr = fldr.Folders("Name sub-sub-subfolder in the chain")
' ... repeat as needed
'Set fldr = fldr.Folders("Name of the target folder. Last in the chain.")

To reference a non default Inbox.

Set fldr = Session.Folders("mailbox name").Folders("Inbox")

[delaing]

skatonni,

Please accept my apology for not responding sooner to thank you for your reply.
I had looked at it and meant to come back to work with the code, but got drawn away. I will let you know how it works out.

Thank you,
Delain

[delaing]

I tested the first section of code just as you show, except that I had to remove 'Private' because I couldn't see the macro listed in the Developer tab for testing it.

Outlook hangs up and I have to Ctrl-break so I can unfreeze it; not sure what is happening, but VBE shows the break or error at the Next statement.

For Each itm In itms
    itm.UnRead = False
Next

I presume that is simply due to me interrupting the code.

Was I supposed to do something that I'm supposed to already know how to setup?
Does the code go into a standard Module or does it have to reside in the ThisOutlookSession module/Object?

For marking subfolders, is the code going to be modified like this (snippet)?

'Set fldr = currItemSel.Parent

Set fldr = Session.GetDefaultFolder(olFolderInbox)
Set fldr = fldr.Folders("HMA - Hugh")
Set itms = fldr.Items

For Each itm In itms
    itm.UnRead = False
Next

With "HMA - Hugh" being a subfolder directly below my Inbox (Delain's Primary Email).

Thank you,
Delain

[skatonni]

Test in the VB Editor not by running strange code you get from the internet. Step through with F8 and see which item is a problem.

You can learn how to debug here. http://www.cpearson.com/excel/DebuggingVBA.aspx

The code goes in a standard module.

Your modified subfolder code looks okay. Try it and see.