Discussion :

[Bruno51]

Bonjour

j'aimerais savoir comment écrire le corps du message sur plusieurs lignes.
9a marche très bien sur une ligne, mais je ne trouve pas la syntaxe pour écrire en plusieurs lignes.
Ci-dessous le code que j'utilise:

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
23
24
my $msg = new MIME::Lite 
	From=>'Expéditeur', 
	To=>$mail_to,          
	Subject =>'Sujet du mail',
	Type=>'multipart/mixed',
	Data=>"Bonjour,
 
Veuillez trouver ci-joints diverses choses.
 
Au revoir !
moi@ma_boite.fr";
 
foreach my $file ( @liste_files )
{
   attach $msg
	Type=>'application/text',
	Path=>"$fromdir/$file",
	Filename=>$file
 
      or die "attach: ************ $date: FIN ANORMALE DU SCRIPT $0 **********: $!\n";
   print "Le fichier $file a ete ajoute en piece jointe au mail.\n";
}  
 
$msg->send_by_smtp('smtp.ma_boite.fr');

C'est la ligne: Data=> "message
sur
plusieurs
lignes";

qui me pose problème ...

[djibril]

en mettant des \n.

[Bruno51]

J'ai écris le message comme ça:

Code :

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

Data=> "message\nsur\nplusieurs\nlignes";

Je reçois bien le mail avec les pièces jointes mais sans le message dedans ....
Et je n'ai pas d'erreur renvoyée par perl ...
Une autre idée ?

[djibril]

voici un exemple

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
23
24
25
my %parametres = (
 from     => $from,
 to        => $to,
 sujet     => $sujet,
 smtp      => $smtp,
 message => "message\nsur\nplusieurs\nlignes",
);
 
email(\%parametres);
 
sub email {
   my ($ref_parametre) = @_;
   my $message = $ref_parametre->{message};
   $message =~ s{\n}{<br>}g;
   my $Mail = new MIME::Lite
               From    => $ref_parametre->{from},
               To      => $ref_parametre->{to},
               Subject => $ref_parametre->{sujet},
               Type    => "TEXT",
               Data    => $message;
 $Mail->attr("content-type" => "text/html; charset=iso-8859-1");
 $Mail->send_by_smtp($ref_parametre->{smtp}) or return "mail non envoye $!)\n\n";
 
 return;
}

[Bruno51]

ok, merci beaucoup.
Ca marche, mais en fait il a fallu que je sépare le texte du message et que je l'attache comme si c'etait une piece jointe.
Je pense que c'est à cause du

Code :

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

Type	=>'multipart/mixed'

Il a fallu que je l'ecrive comme ceci

Code :

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

1
2
3
4
  $msg->attach(
	Type	=>'TEXT',
	Data	=>"Message!\nsur\nplusieurs\nlignes"
	);

Merci encore et bonne journée