You can do this with Email::Folder and Email::Send quite easily:
Of course fixing some of the values as appropriate.use strict; use warnings; + use Email::Send; use Email::Folder; + my %received; my $box = Email::Folder->new('/home/jonathan/mail/Recruiters/'); while ( my $mail = $box->next_message ) { + $mail->header_set('To','jonathan@localhost'); send SMTP => $mail->as_string(), 'localhost'; }
/J\
In reply to Re: forwarding emails with perl??
by gellyfish
in thread forwarding emails with perl??
by chrisj0
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |