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