Macro to mark item unread

[Dave]

Hi:

I have a very simple macro that moves the selected item to a folder called
"Archive - email". I also want the macro to mark the selected item "read".
I'm pretty sure I simply need to set "unread" to false and then save the item
- but I can't figure out how to do so. Any help would be appreciated.

Dave

Sub MoveToArchive()
MoveToFolder ("Archive - email")
End Sub

 

[Ken Slovak - [MVP - Outlook]]

I assume your MoveToFolder() method does something like grabbing
ActiveExplorer.Selection(1)? Just assign that item to an object (or specific
item type such as MailItem, if the macro will always be used on a specific
type of item). Then set the Unread property to false.

Dim obj As Object
Set obj = Application.ActiveExplorer.Selection(1)
obj.Unread = False
obj.Save
Set obj = Nothing

 

[Dave]

Perfect. Here's the code I used in case it's of use to anyone else. (One
could also put error handling in to warn the user if the folder doesn't exist
or to create it if it doesn't exist...)

Thanks a million.

Dave

' Move the selected message(s) to folder "Archive - email"
Sub MoveToArchive()
Dim obj As Object
Set obj = Application.ActiveExplorer.Selection(1)
obj.UnRead = False
obj.Save
Set obj = Nothing
MoveToFolder ("Archive - email")
End Sub