Envoi de mail avec images et pieces jointes

**noooop** · 24/10/2013, 15h21

Bonjour,

tout d'abord, je ne connais rien a Perl (pour situer mon niveau) et pour en rajouter une couche....j'ai des connaissances très limitées en Web.
Donc pour mon problème je me suis inspiré de ce que j'ai trouvé sur internet.

Voici mon problème:
je voudrais envoyer tous les jours depuis un serveur Linux un mail avec 3 images générées par GNUPLOT en format jpeg et un fichier de données format csv.

Mon problème est le suivant:
1) je me suis défini un mail sous forme HTML.
2) confiant je me suis lancé dans l'essai de tag <img> tels que:

Code :

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

<img src="data:image/jpeg;base64, ....du base64.... >

Ca ne marche pas les navigateurs ne m'affichent pas mes images mais des petites croix rouges

2) étant têtu, j'ai utilisé des tags:

Code :

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

<img src="cid:image1">

et en ajoutant au mail un Contend-ID nommé image1 et le contenu de l'image en base64.

Voici un mail en format brut tel que affiché par gmail. Il me semble correct, mais:
- les images ne sont pas affichées. Quand je lui demande de me les afficher il me dit que le format est incorrect. Le base64 a été obtenu avec la commande base64 ou avec Perl.
- le html n'est pas affiché en tant que corps du mail mais en tant que piède jointe.

Une dernière précision, je n'ai droit qu'a Perl et uniquement Net::SMTP;

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
Subject: XXX Statistics for 2013-10-20
MIME-Version: 1.0
Content-type: multipart/mixed;
	boundary="frontier"
 
--frontier
Content-type: text/html;charset=UTF-8
Content-Disposition: quoted-printable
 
<body>
 
 
<h4>Hello<br> 
 
Please ....:
</h4>
 
<img src="data:image/jpeg;base64,_9j_4AAQSkZJRgABAQEAYABgAAD_4RCORXhpZgAATU0AKgAAAAgABAE7AAIAAAAJAAAISodpAAQAAAABAAAIVJydAAEAAAASAAAQdOocAAcAAAgMAAAAPgAAAAAc6gAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!
 AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!
...
 KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAP_2Q==" border="0" alt="img1.jpeg" >
<img src="data:image/jpeg;base64,_9j_4AAQSkZJRgABAQEAYABgAAD_4RCORXhpZgAATU0AKgAAAAgABAE7AAIAAAAJAAAISodpAAQAAAABAAAIVJydAAEAAAASAAAQdOocAAcAAAgMAAAAPgAAAAAc6gAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!
 AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!
...
 KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAP_2Q==" border="0" alt="img2.jpeg" >
<img src="data:image/jpeg;base64,_9j_4AAQSkZJRgABAQEAYABgAAD_4RCORXhpZgAATU0AKgAAAAgABAE7AAIAAAAJAAAISodpAAQAAAABAAAIVJydAAEAAAASAAAQdOocAAcAAAgMAAAAPgAAAAAc6gAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!
 AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!
 KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAP_2Q==" border="0" alt="img3.jpeg" >
 
</body>
 
</html>
 
 
--frontier
Content-Type: application/text; name="excel.xls"
Content-Disposition: attachment; filename="excel.xls"
 
2013/10/14;1;0;0;0;1;0;2;0;1;0;1;2;56
2013/10/16;1;0;1;0;1;0;3;0;1;1;1;3;59
 
--frontier--

Et enfin voici le code perl utilisé:

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
#!/usr/bin/perl
 
use Net::SMTP;
use strict;
use warnings;
my $from = 'xxx@xxx.com';
my @toAll = ('xxx@xxx.com');
my $excelAttachedFile = @ARGV[0];
 
my $boundary = 'frontier';
 
my $excelContent = do {
    local $/ = undef;
    open my $fhExcel, "<", $excelAttachedFile
        or die "could not open $excelAttachedFile: $!";
    <$fhExcel>;
};
 
my $mail = @ARGV[2];
 
my $mailData =  do {
    local $/ = undef;
    open my $fhMail, "<", $mail
        or die "could not open $mail: $!";
    <$fhMail>;
};
 
my $smtp = Net::SMTP->new('a.b.c.d' , Debug => 1) or die 'Cannot connect to smtp server' . $!;
$smtp->mail($from);
$smtp->to('xxx@xxx.com')  or die 'smtp->to problem';
$smtp->recipient('xxx@xxx.com', 'yyy@xxx.com', { SkipBad => 1 });
$smtp->data();
$smtp->datasend("Priority: Urgent\n");
$smtp->datasend("Importance: high\n");
$smtp->datasend("Disposition-Notification-To: xxx\@xxx.com\n");
$smtp->datasend("Subject: XXX Statistics for @ARGV[1]\n");
$smtp->datasend("MIME-Version: 1.0\n");
$smtp->datasend("Content-type: multipart/mixed;\n\tboundary=\"$boundary\"\n");
$smtp->datasend("\n");
$smtp->datasend("--$boundary\n");
$smtp->datasend("Content-type: text/html;charset=UTF-8\n");
$smtp->datasend("Content-Disposition: quoted-printable\n");
$smtp->datasend("\n--$boundary\n");
$smtp->datasend("Content-Type: application/text; name=\"$excelAttachedFile\"\n");
$smtp->datasend("Content-Disposition: attachment; filename=\"$excelAttachedFile\"\n");
$smtp->datasend("\n");
$smtp->datasend("$excelContent\n");
$smtp->datasend("--$boundary--\n");
$smtp->dataend();
$smtp->quit;
 
exit;

Merci d'avance pour votre aide !

**cmcmc** · 25/10/2013, 00h10

Envoyé par noooop

Je voudrais envoyer tous les jours depuis un serveur Linux un mail avec 3 images générées par GNUPLOT en format jpeg et un fichier de données format csv.
...
Une dernière précision, je n'ai droit qu'a Perl et uniquement Net::SMTP;

Essaie de négocier pour avoir aussi MIME::Lite et tu devrais plier ton projet en une heure.

Ceci fonctionne chez moi (pompé directement de la doc MIME::Lite), avec un send via SMTP.

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
# -*- Mode: cperl; coding: utf-8; tab-width: 8; indent-tabs-mode: nil; cperl-indent-level: 4 -*-
# test1.pl
use strict;
use warnings;
use MIME::Lite;
use File::Basename;
 
my ($smtp_host, $from, $to, $image_path) = @ARGV; 
my $image_name = File::Basename::basename($image_path),
 
MIME::Lite->send('smtp', $smtp_host, Timeout=>60,
		 # AuthUser=>$user, AuthPass=>$pass
    );
 
my $msg = MIME::Lite->new(
    From    => $from,
    To      => $to,
    Subject => 'HTML with in-line images!',
    Type    => 'multipart/related'
    );
$msg->attach(
    Type => 'text/html',
    Data => qq{
            <body>
                Here's <i>my</i> image:<br>
                <img src="cid:$image_name">
            </body>
        },
    );
$msg->attach(
    Type => 'image/jpeg',
    Id   => $image_name,
    Path => $image_path,
    );
$msg->send();

à utiliser comme suit :

Code :

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

1
2
Taisha:~/tttmp/mailpj $ perl test1.pl adresse_IP_ou_nom_du_serveur_smtp emetteur@outuveux.com destinataire@gmail.com ton_image_gnuplot.jpg
Taisha:~/tttmp/mailpj $

Si tu dois authentifier, adapte le code pour passer les paramètres qui vont bien (AuthUser, AuthPass, etc...)

Si tu n'as vraiment droit qu'à Net::SMTP, alors il te faut comprendre l'architecture d'un message MIME. Le plus simple est de t'en envoyer un à toi même manuellement à partir de ton outil de messagerie habituel, de récupérer le code source du message (Ctrl-U dans Thunderbird, ou exporte le sous format eml, tu pourras l'ouvrir dans un éditeur), et de le reproduire tant bien que mal... Les croix rouges que tu vois pour tes images sont certainement dues à des erreurs dans la composition des parties MIME correspondantes.

**noooop** · 25/10/2013, 00h18

bonsoir, merci pour cette réponse à cette heure tardive, je vais suivre tes deux conseils. je donnerais un retour dès MIME:Lite installé.

**noooop** · 25/10/2013, 15h29

Voici des nouvelles,

je m'en suis sorti avec Net::SMTP. j'ai comparé des mails comme tu m'as indiqué.

Par contre j'attends que l'on m'installe MIME::Lite pour faire plus propre car j'ai regardé les mails multipart/related et je n'ai pas envie de me lancer là-dedans avec uniquement Net::SMTP.

Merci

**cmcmc** · 25/10/2013, 15h50

Envoyé par noooop

Voici des nouvelles,

je m'en suis sorti avec Net::SMTP. j'ai comparé des mails comme tu m'as indiqué.

Par contre j'attends que l'on m'installe MIME::Lite pour faire plus propre car j'ai regardé les mails multipart/related et je n'ai pas envie de me lancer là-dedans avec uniquement Net::SMTP.

Merci

Merci pour les nouvelles

Tu peux peut-être avancer en parallèle, en utilisant local::lib. Cela te permettra d'expérimenter avec des modules installés sous ton compte et non pas dans les répertoires systèmes, et pourra t'aider à plaider en faveur de leur installation globale (Regardez! Ca marche! Qu'est ce que vous attendez ?)

Dans le même ordre d'idée il y a aussi perlbrew, mais ça risque d'être plus compliqué...

**cmcmc** · 25/10/2013, 16h20

Au fait,

Envoyé par noooop

tout d'abord, je ne connais rien a Perl

Une petite remarque : la ligne suivante dans ton code

Code :

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

my $excelAttachedFile = @ARGV[0];

fait ce que tu veux mais probablement pas pour la raison que tu crois, tout comme tes autres utilisations de @ARGV[...]
Comme tu utilises use warnings; tu as dû voir apparaître un message du type

Code :

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

Scalar value @ARGV[0] better written as $ARGV[0] at ...

et je te conseille de le respecter. Tu cherches à accéder à l'élément 0 du tableau @ARGV, et ça se fait par $ARGV[0]. La construction @ARGV[0] est différente (détails ici).

Alternativement, la forme suivante dans mon exemple

Code :

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

my ($smtp_host, $from, $to, $image_path) = @ARGV;

est utile pour récupérer d'un coup un nombre fixe de paramètres. Si ça te pose un problème n'hésite pas à demander des éclaircissements (ou sur tout autre point qui te semblerait obscur)

**noooop** · 25/10/2013, 16h34

Envoyé par cmcmc

Au fait,
...

Bonjour, quel service après vente

Pour argv (warning + affectation) j'avais remarqué car j'ai hérité de la maintenance d'un autre script Perl et j'avais remarqué les warnings. Du coup je vais faire d'une pierre deux coups et les corrigés.

Donc je vais prendre en compte toutes tes remarques.

Pour local::lib, je vais m'installer une machine virtuelle ca sera plus sure. A chaque install de fixpack les admins Linux plante un composant du serveur.

Donc une petite machine virtuelle avec MIME::Lite ca sera parfait et comme tu dis, si le résultat est joli, j'aurais du poids pour faire installer ce package.

Merci

**cmcmc** · 25/10/2013, 16h41

Envoyé par noooop

Pour local::lib, je vais m'installer une machine virtuelle ca sera plus sure.

Si tu as les droits suffisants pour installer une VM, regarde également perlbrew, qui te permettra de naviguer entre plusieurs versions de Perl, voire plusieurs fois la même avec des options différentes ou différents modules installés...

**noooop** · 27/10/2013, 14h09

bonjour,

mime::lite installé dans une vm
programme ecrit en 30 minuted
ca marche impecable

ce qui a pris le plus de temps c'est l'install de la vm dans virtual box

un grand merci !

**cmcmc** · 27/10/2013, 22h42

Envoyé par noooop

bonjour,

mime::lite installé dans une vm
programme ecrit en 30 minuted
ca marche impecable

ce qui a pris le plus de temps c'est l'install de la vm dans virtual box

un grand merci !

Bien ouej

, merci du retour et bonne chance pour la suite et l'install en prod

Une petite remarque : je peux me tromper mais j'ai l'impression que tu as essayé de marquer le sujet comme résolu en changeant son titre... Normalement il y a un bouton

pour ça, tout en bas de la fenêtre de discussion, et qui n'apparaît que pour celui qui a démarré la discussion

**noooop** · 27/10/2013, 23h15

pas vu le bouton. je repare l'erreur

Envoi de mail avec images et pieces jointes

Web Perl

Discussions similaires

Partager

Partager