JP wrote:

One workaround would be to write some VBA code to set the "Do Not
Archive" flag on Read emails, then when you click on FileArchive,
uncheck "Include items with "Do not AutoArchive" checked." so those
emails would not be moved to archive.

But he wants to archive the read mail. He doesn't want to archive unread
mail. The VBA code should add the flag to unread items, not read items.
The problem I see with that, though, it that it would be all too esy to
forget to reenable archiving on the items as they become read. He's wind up
with nothing being archived as messages aged.
--
Brian Tillman [MVP-Outlook]