Code to resend mail items..

Hi

I've a need for a macro that will resend selected mail items to a specific
address without modifying the email body, subject or the sender..

So I have something like this :-

Sub SendToSpamTrap()