Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1790 connectés 

  FORUM HardWare.fr
  Programmation
  Perl

  Commande sendmail et pieces jointes

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Commande sendmail et pieces jointes

n°1436137
duglambier
Posté le 04-09-2006 à 10:33:16  profilanswer
 

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 :
  1. 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 :
  1. #!/usr/bin/perl
  2. use strict;
  3. my $from = "Un_Utilisateur";
  4. my $sendmail = "/usr/lib/sendmail -t -f $from";
  5. open(MAIL, "| $sendmail" ) or die "Can't open $sendmail: $!\n";
  6. print MAIL "From: <$from>\n";
  7. print MAIL "Reply-to: $from\n";
  8. print MAIL "To: $ENV{TO_MESSAGE}\n";
  9. print MAIL "Cc: $ENV{COPY_MESSAGE}\n";
  10. print MAIL "Subject: $ENV{SUJET_MESSAGE}\n";
  11. print MAIL "\n";
  12. print MAIL "$ENV{MESSAGE}.";
  13. close(MAIL);
  14. 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

mood
Publicité
Posté le 04-09-2006 à 10:33:16  profilanswer
 

n°1437553
duglambier
Posté le 06-09-2006 à 13:12:03  profilanswer
 

Merci pour votre aide...

n°1438417
gen2
Posté le 07-09-2006 à 15:09:28  profilanswer
 

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

n°1440105
Aricoh
gentil mais fo po pousser
Posté le 11-09-2006 à 10:50:33  profilanswer
 

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 -> Google Pixel 9 PRO XL

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Perl

  Commande sendmail et pieces jointes

 

Sujets relatifs
[flash/AS] preloader / commande d'un MC ?[javascript] Commande smtp pour envoyer un mail
Convertir un fichier HTML en fichier PDF en ligne de commandecommande dos copy
Insérer des données avec une seule commandecommande getElementById
[RCH]Liste de commande à travers des fichiers TXTArguments en ligne de commande
Batch - Erreur d'utilisation de la commande ncftpgetaide sur la commande ActiveCell.Row + Liens inter - page
Plus de sujets relatifs à : Commande sendmail et pieces jointes


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR