Discussion :

[taly]

Bonjour,

Je souhaite faire un envoi de mail via SMPT. Le fichier utilisé est d'extension .cmd

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
@rem = '
@echo off
pushd "%~dp0
perl.exe "%~f0" %1
@rem ';
#!/Program Files/Perl/bin/perl.exe
 
use strict;
use Net::SMTP;
 
my $smtp = Net::SMTP->new('monserveurSMTP') or die "Connexion SMTP impossible.";
 
$smtp->mail('test@domaine.fr');
$smtp->to('moi@mondomaine.com');
 
$smtp->data();
  $smtp->datasend("To: Destinataire\n");
  $smtp->datasend("From: Expediteur\n");
  $smtp->datasend("Subject: Objet du mail test\n");
  $smtp->datasend("Ceci est un test.");
  $smtp->dataend();
$smtp->quit;

L'envoi de mail fonctionne : je le reçoit correctement. Mais ce que je ne comprend pas c'est qu'a chaque fois que j'execute le script il me créé des fichers (dont les noms sont tous précédé par -> dans mon code).
Voir image jointe.

Savez-vous pourquoi j'ai ce résultat ??
Merci.