Envoyer des emails : soucis avec le caractère '@'[réglé]
Bonjour,
J'ai un script PERL qui envoie les mails. Quand le champs 'to' est rempli de façon manuelle ($to="monemail\@toto.com"), l'email est correctement envoyé ; par contre, quand le champ 'to' est rempli grace à une fonction, l'email n'est pas correctement envoyé (probablement à cause de '@').
Je n'arrive pas à resoudre ce problème. Alors si quelqu'un peut m'aider, ce serait gentil.
P.S.:
Les mails sont stockés dans un fichier au format monemail@toto.com.
Je commence par ourvir mon fichier afin de récupérer chaque email
Code:
open(FICHIER, 'email.txt') || die ("Erreur d'ouverture du fichier des abonnés emailabonnes.txt");;
Pour chaque email récupéré, j'envoie le mail
Code:
1 2 3 4 5
| while($courrier = <FIC_ABONNES>)
{
$to = $courrier;
$resultat = &send($to);
} |
Avec ce code, le mail est envoyé de façon anormale (dans le corps meme de l'email, je vois le contenu de l'entete), alors que si je remplace par exemple la ligne
par
Code:
$to = "monemail\@toto.com";
le mail est envoyé de façon correcte (sans l'entete dans le corps meme du mail)