Attachments mit sendmail in perl versenden [gelöst]

[Duff]

Hallo,

habe auch schon gesucht, kann aber leider nichts brauchbares für mich finden. Ich möchte durch ein perl-Skript eine Logdatei (ist eine .txt-Datei) versenden. Sprich, die Datei soll als Anhang gesendet werden. Zur Zeit versende ich nur den Inhalt der Datei (wird in einem Array gespeichert und ausgegeben).

Bisher sieht die ganze sendmail-Geschichte so aus:

Code: Alles auswählen

open (SENDMAIL, "|/usr/sbin/sendmail -oi -t") or die "Kann sendmail nicht ausfuehren: $!\n";

print SENDMAIL << "EOF";
From: Bla bla
To: $listemail
Subject: Testmail

@sendfile;

EOF
close(SENDMAIL);

[herrchen]

habe auch schon gesucht, kann aber leider nichts brauchbares für mich finden.

http://www.google.de/search?hl=de&sa=X& ... nt&spell=1

--> http://alma.ch/perl/Mail-Sendmail-FAQ.html

sieht doch brauchbar aus.

herrchen

[Duff]

Ja danke, aber die Sachen habe ich auch schon alle gefunden. Suche eigentlich nach einer vielleicht "einfacherern" und "kürzeren" Lösung (wenn es das gibt). Habe es auch mal hier versucht http://www.perl.com/CPAN/.

Will doch eigentlich nur eine Text-Datei mit anhängen und nicht nur den Inhalt der Datei in die Email packen.

[Duff]

So, habe es nun so lösen können:

Code: Alles auswählen

use MIME::Lite;
# TEXT
my $message = MIME::Lite->new(
        From => 'Test',
        To => "$listemail",
        Subject => "Test-Mail vom $datum",
        Type => 'MIME-Type',
        #Encoding => 'Content-Encoding',
        Path => '/Pfad/zur/Text.txt'
);

# Das ganze verschicken

$message->send(); # UNIX-sendmail

exit;