Snipplet :: E-Mail mit Anhang verschicken

Kategorie: Mailversand

Um eine Mail mit Anhang (Attachment) zu verschicken ist das Modul MIME::Lite notwendig, das mittlerweile auf den meisten Servern standardmäßig installiert sein sollte. Damit ist es sehr einfach eine Datei an eine Mail anzuhängen.

use Mime::Lite ;

open(MAIL , "| /usr/sbin/sendmail -t") ;
my $msg = new MIME::Lite ;
my $tomail="support\@perlunity.de" ;

$msg = build MIME::Lite 
        From    => $tomail ,
        To      => $tomail ,
        Subject => "Das schöne Bild" ,
        Type    => 'TEXT',   
        Data    => "Das ist der Mailtext" ;  

   attach $msg 
       Type     => "image/gif" ,
       Path     => "/usr/perlunity/images/test.gif" ,
       Encoding => "base64",
       Filename => "test.gif" ;

$msg->print(\*MAIL) ;
close(MAIL) ;

Wer mehrer Anhänge verschicken will, wiederholt einfach den Block mit dem Befehl attach. Und wenn einmal der richtige Mime-Type für ein File nicht bekannt ist können die Standardtypen verwendet werden: "TEXT" für "text/plain" und "BINARY" für "application/octet-stream".