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 🙂 Navigation de l’article unless `date +%Y%m%d` != 20120630 /bin/kill MINITELIT Crowd : la carte reynholm industries