Attachment Warning VBA Issues

I use the following code to warn any user when they are sending an email with an attachment. A msgbox asks them to make sure they are not sending sensitive info via email. The issue I have is when there is a string of replies/forwards and any of the senders have pictures in their signatures. This causes the intAttachCount to be higher than it should which in turn triggers a false attachment warning. Is there a way to only count the attachments on the current message?

Here is the code:

Please Login or Register  to view this content.

Rather than counting perhaps you can verify the extension of the attachment name, if any, against a list of extensions.

For each attachment

If first three characters after . in the name = xls or doc or ppt or pdf ...