Utilisation de MIME::Lite

Version imprimable

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:

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 ...

18/03/2008, 14h41
djibril

en mettant des \n.
18/03/2008, 14h54
Bruno51

J'ai écris le message comme ça:

Code:

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 ?

voici un exemple

Code:

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;
}

18/03/2008, 15h36
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:

Type =>'multipart/mixed'

Il a fallu que je l'ecrive comme ceci
Code:

1 2 3 4 $msg->attach( Type =>'TEXT', Data =>"Message!\nsur\nplusieurs\nlignes" );
Merci encore et bonne journée :)