Discussion :

[ptonnerre]

Bonjour,

je développe sur une plateforme RHEL6.6 un programme Perl (vs 5.10.1) susceptible d'envoyer des emails vers un serveur Exchange qui seront lus avec un client Outlook 2010.
Pour gérer l'aspect encodage, j'ai consulté https://perl.developpez.com/tutoriel...ge-caracteres/.

Le script n'utilise pas le pragma use utf8
Pour que les caractères s'affichent correctement dans Outlook, j'ai créé la fonction outlook_encode appelée par la fonction send_mail.

Le résultat est correct mais je me demande si c'est la bonne façon de procéder car je ne suis pas très à l'aise lorsqu'il s'agit de manipuler les encodages ;)
J'avais essayé dans un premier temps d'utiliser sans succès :

Code :

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

$msg->attr('content-type.charset' => 'CP1252');

Par la même occasion, un peu off-topic de ma précédente question, mais je n'arrive pas à obtenir dans le mail le saut de ligne entre les deux derniers éléments du tableau @t_str alors que les boucles foreach qui parcourent les tableaux de données pointées par les références fonctionnent. Voir l'image jointe, la ligne après 'Statut changé pour entrées oratab' devrait présenter un saut de ligne avant le mot 'sinon'.

Merci pour vos avis et commentaires.

Code :

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

1
2
3
4
sub outlook_encode {
    my ( $string ) = @_;
    return encode ( 'CP1252', (decode ('UTF-8', $string ))  );
}

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
sub send_mail {
    my ( $r_log, $r_h_env, $r_t_new ,$r_t_del, $r_t_chg ) = @_;
 
    my $to   = 'xxx@yyy';
    my $cc   = 'xxx@yyy, xxx@yyy';
    my $from = 'xxx@yyy';
 
    my $subject = 'Action Production - Interventions ODA';
    my $message;
 
    if ( scalar(@$r_t_new) > 0 ) {
        my $str   = 'Nouvelles entrées oratab => Créer traitements VTOM de sauvegardes';
        $message .= outlook_encode ( $str ) . "\n" . $r_h_env->{'dash132'} . "\n" ;
        $message .= outlook_encode ( $_ ) . "\n" foreach @$r_t_new;
        $message .= "\n";
    }
 
    if ( scalar(@$r_t_del) > 0 ) {
        my $str   = 'Entrées oratab manquantes => Désactiver ou supprimer traitements VTOM correspondants';
        $message .= outlook_encode ( $str ) . "\n" . $r_h_env->{'dash132'} . "\n" ;
        $message .= outlook_encode ( $_ ) . "\n" foreach @$r_t_del;
        $message .= "\n";
    }
 
    if ( scalar(@$r_t_chg) > 0 ) {
 
        my @t_str = ( 'Statut changé pour entrées oratab' ,
                      'Si fin du nouveau primaire se termine par ORA0 alors dans VTOM switcher les machines physiques des machines logiques PPMLORA01 et PS1LORA01, ' ,
                      'sinon si fin du nouveau primaire se termine par ORA1 alors dans VTOM switcher les machines physiques des machines logiques BPMLORA01 et BS1LORA01' );
 
        $message .= outlook_encode ( $_ ) . "\n" foreach @t_str;
        $message .= $r_h_env->{'dash132'} . "\n" ;
 
        $message .= outlook_encode ( $_ ) . "\n" foreach @$r_t_chg;
        $message .= "\n";
    }
 
    my $msg = MIME::Lite->new(
        From     => $from,
        To       => $to,
        Cc       => $cc,
        Subject  => $subject,
        Type     => 'multipart/mixed'
    );
 
    $msg->attach(Type => 'text',
                 Data => $message,
    );
 
#    $msg->attr('content-type.charset' => 'CP1252');
 
    $msg->send;
 
}