Envoyer un mail avec une piece jointe

Le module MIME::Lite permet d'envoyer un mail avec une piece jointe. Il prend en charge l'encodage du fichier joint, la construction de l'entête et l'envoi du mail ainsi formé.

use MIME::Lite;

my $msg = MIME::Lite -> new(
                From    =>      'stephane@unices.org',
                To      =>      'stephane@unices.org',
                Subject =>      'Image jointe',
                Data    =>      'Veuillez trouver la piece jointe',
                );

$msg -> attach( Type    =>      'image/jpg',
                Path    =>      'tt.jpg',
                Filename =>     'tt.jpg');

$msg -> send;

Le mode objet de ce module nous permet de déclarer l'objet avec les définitions nécessaires, puis de lui adjoindre une pièce attachée par la suite. Il est cependant indispensable de définir de type de l'attachement afin qu'il soit correctement interprété par le client mail destinataire.

La fonction send() du module utilise sendmail par défaut, mais il est tout à fait possible de lui demander d'utiliser un serveur MX exterieur en lui donnant en option les caractéristiques du dît serveur :

$msg -> send('smtp','smtp.mon_provider',Timeout => 30);