For Each Loop keep given me an error

[alexduy]

This is just a portion of my codes. Basically, this For Loop is supposed to loop through all the attachments of an outlook mail item. If the mail item has one attachment, it would loop through and save that mail item to the correct folder, but then for some reason it loops through again trying to read the second attachment when there is only one attachment. Why does this code do that? How come it did not stop because the mail item only has one attachment? It gives me an error because it couldn't find a second attachment.

[hrlngrv]

I admit I don't do much Outlook scripting. For the heck of it, what does Debug.Print olMail.Attachments.Count produce in the Immediate Window? If it produces 1, then an alternative rather than an explanation,

Please Login or Register  to view this content.

[Norie]

I can immediately see at least one possible problem in the code, olMail is an Outlook VBA constant and not a good name for a variable in Outlook VBA.

I think we need to see the rest of the code.

[alexduy]

I've added the full code