envoyer un mail avec pieces jointes plus accusé de réception en perl

Bon je poste ça par ce que j’ai galéré pendant au moins 1 heures pour trouver … 🙂

1/ configuration + environement :

perl -MCPAN -e shell
install Net::SMTP
install Getopt::Long
install Mail::Sender

 

mkdir ~/bin
vim ~/bin/mail_sender.pl
chmod 777 ~/bin/mail_sender.pl

2/code source :

#!/usr/bin/perl 

use Net::SMTP;
use Getopt::Long;
use Mail::Sender;

my $pj;
my $texte;
my $sujet;
my $user_mail;

GetOptions("pj=s"      => \$pj,
"texte=s"         => \$texte,
"sujet=s"         => \$sujet,
"user_mail=s"         => \$user_mail);

$sender = new Mail::Sender
{smtp => 'votre.server.smtp', from => 'votre\@adresse.com'};
$sender->MailFile({to => "$user_mail",
headers => "Return-receipt-to: votre\@adresse.com",
subject => '$sujet',
msg => "$texte",
  file => '$pj'});

et pour envoyer un mail :

~/bin/mail_sender.pl -user_mail qui@vous.voulez -texte "oh la belle bleu" \
-sujet "Hell 0 World" -pj /tmp/coucou.pdf

voila 🙂