Loop Through Multiple Selected Mail Item

[smartbuyer]

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

the error shows up when x = 2



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

[SamT]

Moderator Bump

[skatonni]

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.