Outlook Macro keeps running for the same messagage

Outlook version
Outlook 2007
Email Account
My script seems to be running (and sending to Trello the same set of information) for each mail in the folder but it keeps sending the same information for the same email for each number of emails in the box...
Not sure what I need to change in my code?
I think it may have to do with this line but it errors when I remove it:
Set olMail = Application.ActiveExplorer().Selection(1)