5312 connectés

FORUM HardWare.fr

Programmation

Script PERL

Recherche :

Dernière réponse
Sujet : Script PERL
MrTonio	Marchi beacoup 8-)

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

MrTonio

Marchi beacoup 8-)

stef_dobermann

voici une fonction écris en Perl ki envoi un mail tester sous Linux car sendmail pas essayer sous Windows,

$corp contient le corp du mail
@tete estun tableu ki contient
$tete[0] = email de l'emetteur
$tete[1] = email du destinataire
$tete[2] = sujet du mail

ensuite tu peu l'améliorer ebn ajoutant une adresse de retour si le mail du destinaire n'est pas bonne .....
a toi de chercher :D

sub envoimail {
my ( $corps ) = shift;
my ( @tete ) = shift;

open(SENDMAIL, "|/usr/sbin/sendmail -oi -t -odq" ) or die "fork impossible pour SendMail : $!\n";
print SENDMAIL <<"EOF_MAIL";
From: $tete[0]
To: $tete[1]
Subject: $tete[2]

$corps

EOF_MAIL

close(SENDMAIL) or warn "Sendmail ne s'est pas fermé correctement\n";
}

stef_dobermann

:hello:
cherche sur le net yen a plein,
sinon c vite ecri :D

MrTonio

Hello,

Je cherche un script en Perl permettant d'envoyer un mail via une page web....

Merci
:hello: