Commande sendmail et pieces jointes

Marsh Posté le 04-09-2006 à 10:33:16

Bonjour,

Nous avons un petit problème avec la commande sendmail. Nous aimerions envoyer des mails avec pieces jointes à des destinataires. Pour envoyer vers l'exterieur, nous sommes obligé de redéfinir le champ From:
(il faut un destinataire connu)

La commande sendmail suivante fonctionne avec piece jointe :

Code :

uuencode test.js test.xls | sendmail -t toto@mail.com <mailto:tata@mail.fr>

Pour redéfinir le From: et afin d'intégrer ça dans un shell, nous avons fait un perl, le suivant :

Code :

#!/usr/bin/perl
use strict;
my $from = "Un_Utilisateur";
my $sendmail = "/usr/lib/sendmail -t -f $from";
open(MAIL, "| $sendmail" ) or die "Can't open $sendmail: $!\n";
print MAIL "From: <$from>\n";
print MAIL "Reply-to: $from\n";
print MAIL "To: $ENV{TO_MESSAGE}\n";
print MAIL "Cc: $ENV{COPY_MESSAGE}\n";
print MAIL "Subject: $ENV{SUJET_MESSAGE}\n";
print MAIL "\n";
print MAIL "$ENV{MESSAGE}.";
close(MAIL);
exit;

Les variables d'environnement SUJET_MESSAGE, TO_MESSAGE et COPY_MESSAGE sont instanciées dans le shell appelant le perl. Ici, je ne vois pas comment intégrer le uuencode dans le perl.

Auriez vous une idée sur comment intégrer le uuencode par rapport au perl ? Y a t-il moyen de faire plus simple en shell ?

Merci

Marsh Posté le 04-09-2006 à 10:33:16

Marsh Posté le 06-09-2006 à 13:12:03

Merci pour votre aide...

Marsh Posté le 07-09-2006 à 15:09:28

Tu peux peut être essayer de passer par le module Mime::Lite.

Message cité 1 fois

Marsh Posté le 11-09-2006 à 10:50:33

gen2 a écrit :

Tu peux peut être essayer de passer par le module Mime::Lite.

Perso, j'utilise Mail::Sender qui marche très bien

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *