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

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Dave" wrote in message
...
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