IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Web Perl Discussion :

Envoi de mail avec images et pieces jointes


Sujet :

Web Perl

  1. #1
    Membre actif
    Profil pro
    Architecte de système d'information
    Inscrit en
    mai 2007
    Messages
    248
    Détails du profil
    Informations personnelles :
    Âge : 68
    Localisation : France

    Informations professionnelles :
    Activité : Architecte de système d'information
    Secteur : Conseil

    Informations forums :
    Inscription : mai 2007
    Messages : 248
    Points : 289
    Points
    289
    Par défaut Envoi de mail avec images et pieces jointes
    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:

    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 !

  2. #2
    Membre confirmé
    Avatar de cmcmc
    Homme Profil pro
    Inscrit en
    juillet 2013
    Messages
    316
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : juillet 2013
    Messages : 316
    Points : 641
    Points
    641
    Par défaut
    Citation Envoyé par noooop Voir le message
    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.
    Sauf indication contraire tous les codes que je présente sont utilisables et testés (mais sans garantie d'aucune sorte)
    J'apporte beaucoup de soin à la rédaction de mes posts et apprécie les retours donc merci de s'il vous paraissent pertinents ou utiles
    Lazyness, Impatience and Hubris are good for you

  3. #3
    Membre actif
    Profil pro
    Architecte de système d'information
    Inscrit en
    mai 2007
    Messages
    248
    Détails du profil
    Informations personnelles :
    Âge : 68
    Localisation : France

    Informations professionnelles :
    Activité : Architecte de système d'information
    Secteur : Conseil

    Informations forums :
    Inscription : mai 2007
    Messages : 248
    Points : 289
    Points
    289
    Par défaut
    bonsoir, merci pour cette réponse à cette heure tardive, je vais suivre tes deux conseils. je donnerais un retour dès MIME:Lite installé.

  4. #4
    Membre actif
    Profil pro
    Architecte de système d'information
    Inscrit en
    mai 2007
    Messages
    248
    Détails du profil
    Informations personnelles :
    Âge : 68
    Localisation : France

    Informations professionnelles :
    Activité : Architecte de système d'information
    Secteur : Conseil

    Informations forums :
    Inscription : mai 2007
    Messages : 248
    Points : 289
    Points
    289
    Par défaut
    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

  5. #5
    Membre confirmé
    Avatar de cmcmc
    Homme Profil pro
    Inscrit en
    juillet 2013
    Messages
    316
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : juillet 2013
    Messages : 316
    Points : 641
    Points
    641
    Par défaut
    Citation Envoyé par noooop Voir le message
    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é...
    Sauf indication contraire tous les codes que je présente sont utilisables et testés (mais sans garantie d'aucune sorte)
    J'apporte beaucoup de soin à la rédaction de mes posts et apprécie les retours donc merci de s'il vous paraissent pertinents ou utiles
    Lazyness, Impatience and Hubris are good for you

  6. #6
    Membre confirmé
    Avatar de cmcmc
    Homme Profil pro
    Inscrit en
    juillet 2013
    Messages
    316
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : juillet 2013
    Messages : 316
    Points : 641
    Points
    641
    Par défaut
    Au fait,
    Citation Envoyé par noooop Voir le message
    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)
    Sauf indication contraire tous les codes que je présente sont utilisables et testés (mais sans garantie d'aucune sorte)
    J'apporte beaucoup de soin à la rédaction de mes posts et apprécie les retours donc merci de s'il vous paraissent pertinents ou utiles
    Lazyness, Impatience and Hubris are good for you

  7. #7
    Membre actif
    Profil pro
    Architecte de système d'information
    Inscrit en
    mai 2007
    Messages
    248
    Détails du profil
    Informations personnelles :
    Âge : 68
    Localisation : France

    Informations professionnelles :
    Activité : Architecte de système d'information
    Secteur : Conseil

    Informations forums :
    Inscription : mai 2007
    Messages : 248
    Points : 289
    Points
    289
    Par défaut
    Citation Envoyé par cmcmc Voir le message
    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

  8. #8
    Membre confirmé
    Avatar de cmcmc
    Homme Profil pro
    Inscrit en
    juillet 2013
    Messages
    316
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : juillet 2013
    Messages : 316
    Points : 641
    Points
    641
    Par défaut
    Citation Envoyé par noooop Voir le message
    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...
    Sauf indication contraire tous les codes que je présente sont utilisables et testés (mais sans garantie d'aucune sorte)
    J'apporte beaucoup de soin à la rédaction de mes posts et apprécie les retours donc merci de s'il vous paraissent pertinents ou utiles
    Lazyness, Impatience and Hubris are good for you

  9. #9
    Membre actif
    Profil pro
    Architecte de système d'information
    Inscrit en
    mai 2007
    Messages
    248
    Détails du profil
    Informations personnelles :
    Âge : 68
    Localisation : France

    Informations professionnelles :
    Activité : Architecte de système d'information
    Secteur : Conseil

    Informations forums :
    Inscription : mai 2007
    Messages : 248
    Points : 289
    Points
    289
    Par défaut
    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 !

  10. #10
    Membre confirmé
    Avatar de cmcmc
    Homme Profil pro
    Inscrit en
    juillet 2013
    Messages
    316
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : juillet 2013
    Messages : 316
    Points : 641
    Points
    641
    Par défaut
    Citation Envoyé par noooop Voir le message
    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
    Sauf indication contraire tous les codes que je présente sont utilisables et testés (mais sans garantie d'aucune sorte)
    J'apporte beaucoup de soin à la rédaction de mes posts et apprécie les retours donc merci de s'il vous paraissent pertinents ou utiles
    Lazyness, Impatience and Hubris are good for you

  11. #11
    Membre actif
    Profil pro
    Architecte de système d'information
    Inscrit en
    mai 2007
    Messages
    248
    Détails du profil
    Informations personnelles :
    Âge : 68
    Localisation : France

    Informations professionnelles :
    Activité : Architecte de système d'information
    Secteur : Conseil

    Informations forums :
    Inscription : mai 2007
    Messages : 248
    Points : 289
    Points
    289
    Par défaut
    pas vu le bouton. je repare l'erreur

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [OL-2010] Signature e-mail avec images sans pièce jointe
    Par davidoffsky dans le forum Outlook
    Réponses: 1
    Dernier message: 31/05/2012, 08h58
  2. envoi un mail avec image
    Par hadjiphp dans le forum Langage
    Réponses: 3
    Dernier message: 07/10/2009, 15h59
  3. [AC-2003] [Lotus] Envoi de mail avec images
    Par Kloun dans le forum VBA Access
    Réponses: 1
    Dernier message: 13/06/2009, 07h36
  4. [SHELL] envoi de mail avec smtp et piece jointe
    Par pitiperchistes dans le forum Linux
    Réponses: 4
    Dernier message: 04/04/2009, 17h12
  5. Réponses: 5
    Dernier message: 12/12/2005, 08h52

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo