Can someone help me with this Outlook VBA..

I had this code working when i was on Windows 8.1 and i upgraded to Windows 10 and now it isnt working.
I made my own Archieve and had all mail move a copy to it when it comes in to my Inbox. This code used to mark the mail in my Inbox as unread after the copy.
Please check it out.
Attachment 130453Attachment 130455

Quote:

---

to mark the mail in my Inbox as unread after the copy.

---

the code appears to be the opposite to this, marks all as read
does the code run on application startup? does the code run when items are added to the collection?
put a stop statement (or messagebox) to see it they are actually running

Quote:

---

Originally Posted by westconn1

the code appears to be the opposite to this, marks all as read
does the code run on application startup? does the code run when items are added to the collection?
put a stop statement (or messagebox) to see it they are actually running

---

How it reads online where i got the code is

Code:

---

Private Sub Items_ItemAdd(ByVal Item As Object)
  Item.UnRead = False
  Item.Save
End Sub

---

I changed it back to this and nothing changes.
Attachment 130555
As you can see from this picture. I want a copy of my mail to be moved to Archived Folder and for the Inbox to remain unread and Archived to be read.

did you test if your code is running?