Perl

perl et envoi de mail

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : perl et envoi de mail

donny3

salut,

J'utilise se script perl pour envoyer un mail

Code :

#!/usr/bin/perl
sub email;
email "from\@domaine.tld","to\@domaine.tld","test","ligne 1\nligne 2\n";
# suivant votre configuration, il peut être nécessaire de changer le chemin vers
sendmail (/usr/sbin/sendmail)
sub email {
my ($from,$to,$subject,$message)=@_;
eval{
open (MAIL, "|/usr/sbin/sendmail -t -oi -f \"$from\"" );
print MAIL ("To: $to\n" );
print MAIL ("From: $from\n" );
print MAIL ("Subject: $subject\n\n" );
print MAIL ("$message" );
close (MAIL);
};
}

J'aurai voulu savoir si il etait possible de le modifier pour pouvoir joindre une pieces à mon mail ?

Merci à tous.

Message cité 1 fois

Publicité

anapajari

s/travail/glanding on hfr/gs;

man sendmail [:spamafote]
option -attach pour une seul fichier ou -attachlist pour une list.

Mais perso je te recommanderais plutot d'utiliser des modules perl "qui vont bien" genre MIME::Lite ou Mail::Mailer

donny3

en faisant un man sendmail,
je ne vois pas -attach dans les options
j'ai modifier le code comme ceci mais rien ne se passe
???

Code :

$attach="/home/temp/file.csv";
email($from,$to,$subject,$message,$attach);
#-attach
sub email {
my ($from,$to,$subject,$message,$attach)=@_;
eval{
open (MAIL, "|/usr/sbin/sendmail -t -oi -f -attach \"$from\"" );
print MAIL ("To: $to\n" );
print MAIL ("From: $from\n" );
print MAIL ("Subject: $subject\n\n" );
print MAIL ("$message" );
print MAIL ("Attach: $attach" );
close (MAIL);
};
}

Message édité par donny3 le 26-03-2007 à 10:42:47

donny3

je viens d'essayer ne ligne de commande
et il ne reconnait pas les options
option -attach pour une seul fichier ou -attachlist pour une list

Citation :

/usr/sbin/sendmail: illegal option -- a

anapajari

s/travail/glanding on hfr/gs;

j'ai rien dit j'étais persuadé que tu avais l'option sur sendmail en fait non ...

Du coup tu es obligé de faire un truc dans le genre:

Code :

uuencode "file to be attach" | sendmail ...

ou un truc dans le genre ...
Mais c'est vraiment pas un problème perl ton truc, à la limite tu auras plus de réponses dans OSA

edit: A moins que tu te décides à utiliser un module perl...

Message édité par anapajari le 26-03-2007 à 10:58:16

couak

un module perl sympa et simple à utiliser : mime::lite

donny3

ok
merci
le module perl j'en ai entendu parler
j 'ai vu des trucs dessus sur le net
mais la je peux pas l'installer
sinon dans mon cas j'ai essayer d'adapter le code perl
en y ajoutant cela

comme ceci

Code :

open (MAIL, "uuencode '/home/temp/arc.csv'|/usr/sbin/sendmail -t -oi -f -attach \"$from\"" );

ça ne fonctionne pas trop
pour que ça fonctionne faudrait que je remodifie tout mon code
et n'utilise plus cette fonction
qui pourtant est bien pratique

anapajari

s/travail/glanding on hfr/gs;

c'est pas une fonction mais un appel à un programme installé sur le serveur, tu es donc forcément limité au fonctionnement de celui-ci [:spamafote]

donny3

pour MIME si jamais l'envoi de mail plante;
il se passe quoi ?
MIME envoi un message d'erreur sur le shell ?
j'ai la possibilité de recuperer le code retour de MIME ?

MErci

anapajari

s/travail/glanding on hfr/gs;

http://search.cpan.org/~yves/MIME- [...] _just_text

Citation :

send HOW, HOWARGS...
...
As an instance method with no arguments, sends the message by the default mechanism set up by the class method. Returns whatever the mail-handling routine returns: this should be true on success, false/exception on error:

Code :

$msg = MIME::Lite->new(From=>...);
$msg->send || die "you DON'T have mail!";

RTFM [:dawak]

Message cité 1 fois
Message édité par anapajari le 05-04-2007 à 10:21:57

Publicité

Aricoh

gentil mais fo po pousser

anapajari a écrit :

RTFM [:dawak]

Et en français : LCPDM

---------------
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

donny3

LCPDM ah ah
mais si je souhaite utiliser log4perl
le die ne peut etre utiliser

Lucie12345

Salut,

J'aurais besoin d'aide sur ton msg stp . J'ai collé ton msg sur gedit puis nommé le fichier test.pl, je l'ai compilé perl test.pl. J'ai vérifié que Sendmail chargé par les paquets synaptiques était dans sbin, j'ai changé les adresses dans email "*****\@hotmail.com". Mais quand je compile , ca me met un temps d'attente puis revient à la normal mais je recois rien dans ma boite mail. Je ne comprends pas je ne sais pas si j'ai oublié de faire quelque chose avant.

Je te remercie de ton aide , c'est important pour moi

donny3 a écrit :

salut,

J'utilise se script perl pour envoyer un mail

Code :

#!/usr/bin/perl
sub email;
email "from\@domaine.tld","to\@domaine.tld","test","ligne 1\nligne 2\n";
# suivant votre configuration, il peut être nécessaire de changer le chemin vers
sendmail (/usr/sbin/sendmail)
sub email {
my ($from,$to,$subject,$message)=@_;
eval{
open (MAIL, "|/usr/sbin/sendmail -t -oi -f \"$from\"" );
print MAIL ("To: $to\n" );
print MAIL ("From: $from\n" );
print MAIL ("Subject: $subject\n\n" );
print MAIL ("$message" );
close (MAIL);
};
}

J'aurai voulu savoir si il etait possible de le modifier pour pouvoir joindre une pieces à mon mail ?

Merci à tous.

gilou

Modérateur
Modzilla

Avec le eval, il y a peu de chances que tu saches pourquoi ça échoue.

Il peut y avoir plusieurs causes:
- pas de login/password
- FAI qui bloque les mails de ses clients lorsque ceux-ci ne sont pas envoyés avec l'adresse qu'il a fourni (c'est le cas avec Orange)
- ?

Déjà, commences par utiliser un package de mail plus adapté comme Mail::Sendmail ou MIME::Lite.

A+,

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

FORUM HardWare.fr

Programmation

Perl

perl et envoi de mail

Sujets relatifs
Probleme fonction mail	Comment générer une page PDF à partir d'un script Perl?
comment envoyer un mail HTML ?	Aide script perl
Signature Mail	comment envoyer un mail (local en, easy PHP)sans nom de domaine..etc
[C] Client/Serveur : tchat, envoi à tous les clients	Envoi de mail en ASP
[HTML/CGI] Formulaire avec envoi mail sans mailto:
Plus de sujets relatifs à : perl et envoi de mail

Page générée en 0.065 secondes