Outlook 2002 Macro to extract attachment

[gkdog]

I regularly forward outlook emails to my primary email address and, so that all the original addresses are saved, I forward the email as an attachment to a blank email.
Unfortunately this means that I have to open the attachment to extract the original email.
What I need is a short macro or script that I can run as an inbox rule to automatically extract the attachment and place it in a mail folder.

Does anyone know how to do this?