Resend already delivered mail

[Puck]

Hi there,

now i came across that i need to resend mail for a user.
The mails are already in the ./Maildir/ directory but i have
to resend them again.
I know qmail-inject can do this, but i have to give an recipient to qmail-inject.
Does someone have a script (perl, shell ...) that parses every message in a directory
and resends it by using the original recipient. Doing this by hand would take ages ...

Please do your best (as ever),
  Thomas