URL: https://linuxfr.org/forums/programmation-perl/posts/envoyer-un-courriel-en-perl
Title: envoyer un courriel en perl
Authors: milounix
Date: 2007年09月25日T08:47:02+02:00
Tags: 
Score: 0
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();
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="httpS://linuxfr.org/forums/programmation-perl/posts/envoyer-un-courriel-en-perl.md">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="httpS://linuxfr.org/forums/programmation-perl/posts/envoyer-un-courriel-en-perl.md" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>