$message->bounce(To => 'you')->send;
When a message is received, the Mail Transfer Agent (MTA) adds a "Received" field to the header. As %options, you may specify lines which are added to the resent group of that received field. "Resent-*" is prepended before the field-names automatically, unless already present.
You may also specify an instantiated Mail::Message::Head::ResentGroup (RG) object. See Mail::Message::Head::ResentGroup::new() for the available options. This is required if you want to add a new resent group: create a new "Received" line in the header as well.
If you are planning to change the body of a bounce message, don't! Bounced messages have the same message-id as the original message, and therefore should have the same content (message-ids are universally unique). If you still insist, use Mail::Message::body().
my $bounce = $folder->message(3)->bounce(To => 'you', Bcc => 'everyone'); $bounce->send; $outbox->addMessage($bounce); my $rg = Mail::Message::Head::ResentGroup->new(To => 'you', Received => 'from ... by ...'); $msg->bounce($rg)->send;
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See http://dev.perl.org/licenses/