Mail mit mehreren Anhängen versenden (2. wird abgeschnitten)

[Stephan-W3Sol]

Autsch, warum fertige Module nutzen, wenn man auch alles von Hand machen kann (oder was hast Du dabei gedacht?).

Du kannst Dir eine Menge Arbeit und Ärger sparen, wenn Du das Perl Modul MIME::Lite nutzt (Documentation: www.span.org).

Beispiel:

use MIME::Lite;
usr strict;

.... blabla .....

Mail-Message

my $mime_msg = MIME::Lite->new(
 From => $from_addr,
 To => $to_addr,
 Subject => 'Subject der Mail,
 Type => 'TEXT',
 Data => 'Der Text erscheint direkt in der Mail.',
) or die "Error creating MIME body: $!\n";

PDF 1 anhaengen

$mime_msg->attach(
 Type => 'application/pdf',
 Path => $mail_file,
 Filename=> $filename1
) or die "Error attaching document 1: $!\n";

PDF 2 anhaengen

$mime_msg->attach(
 Type => 'application/pdf',
 Path => $mail_file,
 Filename=> $filename2
) or die "Error attaching document 2: $!\n";

und raus damit

$mime_msg->send();

Die Methode attach kannst Du beliebig oft, mit beliebigen MIME-Types ausführen.

Stephan