Forum Programmation.perl envoyer un courriel en perl

Posté par  .
Étiquettes : aucune
0
25
sept.
2007
Bonjour,

Je souhaite pouvoir envoyer un courriel via un script Perl, mais je n'arrive pas à insérer une variable dans le champ message.
merci de votre aide
Mon script:

use Net::SMTP;
$a = "1213";
my $smtp = Net::SMTP->new('smtp.xxxx.fr');
$smtp->mail('titi@free.fr');
$smtp->to('tata@free.fr');
$smtp->data();
$smtp->datasend( << 'EOM');
From: <titi@free.fr>
To: <tata@free.fr>
Subject: "Test envoi Couriel"
Vous avez $a mn de retard
Merci.
EOM

$smtp->dataend();
$smtp->quit();

  • # Here documents

    Posté par  (site web personnel) . Évalué à 3.

    $smtp->datasend( << 'EOM');
    Remplace tout simplement tes quotes par des doubles :)

    • [^] # Re: Here documents

      Posté par  . Évalué à 1.

      Merci ça fonctionne très bien.

      A bientôt.

      • [^] # Re: Here documents

        Posté par  . Évalué à 1.

        Mon script:

        my $smtp = Net::SMTP->new('MAILHUB',
        Debug => 1,
        Timeout => 30);
        $smtp->mail('pascal@free.fr');
        $smtp->to('titi@tri.fr');
        $smtp->cc('toto@gmail.fr');
        $smtp->data();
        $smtp->datasend( << "EOM" );
        From: <pascal@free.fr>
        To: <titi@tri.fr>
        Cc: <toto@free.fr>
        Subject: Test
        edfkjdsfdsf
        sdfdsfdsff
        EOM
        $smtp->dataend();
        $smtp->quit();

        Ma question:
        Pourquoi à la rèception je vois dans "De:pascal.fr" dans "A: titi.fr@free.fr" et dans "Cc: toto.fr@free.fr"

        Cela est gênant si les personnes recevant ce Courriel veulent y répondre.

        Merci par avance.

Suivre le flux des commentaires

Note : les commentaires appartiennent à celles et ceux qui les ont postés. Nous n’en sommes pas responsables.