SYNOPSIS

    use Mail::MboxParser;

    [...]

    # $msg is a Mail::MboxParser::Mail-object
    my $mail = $msg->make_convertable;

    $mail->delete_from_header('date', 'message-id');
    $mail->replace_in_header('to', '[email protected]');
    $mail->add_to_header( ['cc', '[email protected]'],
                          where => 'BEHIND' );
    $mail->send('sendmail');

DESCRIPTION

This class adds means to convert an email object into something that could be send via \s-1SMTP\s0, \s-1NNTP\s0 or dumped to a file or filehandle. Therefore, methods are provided that change the structure of an email which includes adding and removing of header-fields, MIME-parts etc and transforming them into objects of related modules.

Currently, only basic manipulation of the header and sending using Mail::Mailer is provided. More is to come soon.

This class works non-destructive. You first create a Convertable-object and do any modifications on this while the Mail-object from which it was derived will not be touched.

METHODS

delete_from_header(header-fields)

Given a list of header-field names, these fields will be removed from the header. If you want to re-send a message, you could for instance remove the cc-field cause otherwise the message would be carbon-copied to the addresses listed in the cc-field.

add_to_header(array-ref)
add_to_header(array-ref, where => '\s-1BEFORE\s0' | '\s-1BEHIND\s0')

add_to_header() takes a reference to a two-element list whose first element specifies the header-field to add or to add to while the second elements specifies the data that should be added. 'where' specifies whether to add at the beginning or at the end of the header. Defaults to '\s-1BEHIND\s0' if not given.

replace_in_header(header-field, new_data)

First element must be the header-field to be replaced while the second argument must be a string indicating what will be the new content of the header-field.

send(command, args)

Literally inherited from Mail::Internet. Commands can be \*(L"mail\*(R" (using the UNIX-mail program), \*(L"sendmail\*(R" (using a configured sendmail or compatible \s-1MTA\s0 like exim), \*(L"smtp\*(R" (for using Net::SMTP) and \*(L"test\*(R" which will only display what would be sent using /bin/echo. Additional arguments will be passed on to Mail::Mailer->new() which is in fact what Mail::Internet->send() uses. For more details, see Mail::Mailer

VERSION

This is version 0.55.

AUTHOR AND COPYRIGHT

Tassilo von Parseval <[email protected]>

Copyright (c) 2001-2005 Tassilo von Parseval. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

RELATED TO Mail::MboxParser::Mail::Convertable…

Mail::Internet, Mail::Mailer