Loop Through Multiple Selected Mail Item

I am having issues on my 'For Next' statement and getting an "Operation Failed" error.

the error shows up when x = 2

Code:

---


For x = 1 To myOlSel.Count
 Set oMail = myOlSel.item(x)
 Set MyCurrentFolder = myOlExp.CurrentFolder
 
        If (TypeOf myOlSel.item(x) Is MailItem) Then
            oMail = myOlSel.item(x)
            ' code here to get mail item metadata (subject, conversationID, received time, category etc)


        End If
            oMail.UnRead = False
    Next x

---

Moderator Bump

Code:

---

Set oMail = myOlSel.item(x)

---

Likely there are more problems. If so, put enough code for responders to run, instead of having to guess what you have.