Ok I may have jumped too soon. It appears I have a small issue.

I am getting
Run-time error '-2147352567 (80020009)':
Array index out of bounds.

When I Debug it highlights this line of code:
[vba]
Att = myAttachments.Item(1).DisplayName
[/vba]

Any thoughts on what I messed up here?