Bonjour, je veux envoyer un mail au format html et avec une piece jointe

j'y arrive séparement mais ensemble j'ai essayé ceci mais ça ne fonctionne pas.

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
 
$Message = new MIME::Lite
        From =>'tata',
        Bcc =>'totot@toto.com',
        Subject =>'essai envoi  ',
        Type =>'multipart/mixed';
 
# texte mail
attach $Message
       Type =>'TEXT',
       Data =>$corps_mail;
       $Message->attr("content-type" => "text/html; charset=iso-8859-1");
 
# piece jointe
attach $Message
   Type =>'page/html',
   Path =>'mapage.htm',
   Filename =>'mapage.htm';
 
# envoi
$Message->send;
le mieux que j'ai réussi a avoir c'est le corps du mail non interprété et la piece jointe.

merci