Mail::Message::Construct::Bounce - bounce a Mail::Message |
Mail::Message::Construct::Bounce - bounce a Mail::Message
$message->bounce(To => 'you')->send;
Complex functionality on Mail::Message objects is implemented in different files which are autoloaded. This file implements the functionality related to bouncing messages off to other destinations.
$obj->bounce([RG-OBJECT|OPTIONS])
The program calling this method considers itself as an intermediate step in the message delivery process; it therefore leaves a resent group of header fields as trace.
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().
Example:
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;
See the MailBox website at http://perl.overmeer.net/mailbox/ for more details.
Distribution version 2.059. Written by Mark Overmeer (mark@overmeer.net) See the ChangeLog for other contributors.
Copyright (c) 2001-2003 by the author(s). All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Mail::Message::Construct::Bounce - bounce a Mail::Message |