Bonjour à tous,

En fait j'aimerais bien envoyer un mail au format XML qui prends alors un fichier XSLT extere afin de faire un rendu au format HTML par exemple;

Voici le code perl:
Code perl : 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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
...
 
push(@contenu_mail, "Subject: $subject\n");
#push(@contenu_mail, "Mime-Version: 1.0\n");
push(@contenu_mail, "Content-Type: text/xml; charset=\"iso-8859-1\"\n");
#push(@contenu_mail, "Content-Transfer-Encoding: quoted-printable\n");
push(@contenu_mail, "\n");
 
$message = <<_CONTENUMAIL_;
<?xml version="1.0" encoding="ISO-8859-1" ?>
<?xml-stylesheet type="text/xsl" href="http://serveur/lib/mail.xsl" ?>
<notification>
  <type>$v_notification</type>
  <host>$v_host</host>
  <adress>$v_adresse</adress>
  <service>$v_service</service>
  <status>$v_status</status>
  <date>$v_date</date>
  <heure>$v_heure</heure>
  <tok>$v_totok</tok>
  <twa>$v_totwa</twa>
  <tcr>$v_totcr</tcr>
  <tun>$v_totun</tun>
</notification>
_CONTENUMAIL_
 
 
#$message = MIME::QuotedPrint::encode_qp($message);
 
# Je fais la connection et j'envoie le mail.
 
foreach $i (@T){
       unshift(@contenu_mail,"To: $i\n");
       unshift(@contenu_mail,"From: $mail_from\n");
       $smtp ="serveur.smtp.com";
 
       $smtp = Net::SMTP->new($smtp);
       $smtp->mail($mail_from);
       $smtp->to($i);
       $smtp->data(@contenu_mail);
       $smtp->quit;
               }

Et quand je vois sur Thunderbird, et n'affiche que seulement comme XML mais en version TEXTE

Merci de m'aider à remédier cette solution afin que celui ci rendra plus pratique d'économie d'espace du serveur mail.

Fred