piece jointe avec module SMTP

Version imprimable

Quel est la commande pour envoyé un fichier en pièce jointe via le module SMTP.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 use strict; use warnings; use Net::SMTP; my $smtp = Net::SMTP->new('smtp.alcan.com'); $smtp->mail('toto@alcan.com'); $smtp->to('toto@alcan.com'); $smtp->data(); $smtp->datasend('To: toto@alcan.com'."\n"); $smtp->datasend("Subject: Objet du mail\n"); $smtp->datasend("Première ligne de texte à envoyer.\n"); $smtp->datasend("Deuxième ligne de texte à envoyer.\n"); $smtp->dataend(); $smtp->quit
Sur le net, j'ai trouvé un module qui s'apelle TRIVIALSMTP, est ce que vous connaissez ?? ou avez vous déjà rencontré ce probléme.

Merci d'avance

Je te conseille fortement de te limiter au module présent sur le CPAN et de n'en pas sortir sauf besoin très spécifique.
Dans ton cas, une foultitude de module réponde à ton besoin, par exemple MIME::Lite.
Dont voici un exemple issu de la doc :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
    ### Create a new multipart message:
    $msg = MIME::Lite->new(
                 From    =>'me@myhost.com',
                 To      =>'you@yourhost.com',
                 Cc      =>'some@other.com, some@more.com',
                 Subject =>'A message with 2 parts...',
                 Type    =>'multipart/mixed'
                 );
 
    ### Add parts (each "attach" has same arguments as "new"):
    $msg->attach(Type     =>'TEXT',
                 Data     =>"Here's the GIF file you wanted"
                 );
    $msg->attach(Type     =>'image/gif',
                 Path     =>'aaa000123.gif',
                 Filename =>'logo.gif',
                 Disposition => 'attachment'
                 );
 
    ### Send in the "best" way (the default is to use "sendmail"):
    $msg->send;

--
Jedaï

29/03/2006, 21h47
djibril

moi aussi je te recommande MIME::Lite, et un petit google te donne de la doc :
http://www.alianwebserver.com/informatique/languages/perl/mail.htm#mime-lite
:wink:
30/03/2006, 10h27
vince2005

....
A qui sert :
Code:

1 2 $smtp->recipient(......);
Merci

Avec le mine: Lite que j'ai copié dans le repertoire Lib\Mine, je ne passe plus par mon server SMTP.

D'ailleurs j'ai l'erreur suivante :

'sendmail' n'est pas reconnu en tant que commande interne
ou externe, un programme exécutable ou un fichier de commandes.

mon script :

Code:

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
 
use strict;
use warnings;
#use Net::SMTP;
use MIME::Lite;
my $msg="";
 
$msg = MIME::Lite->new( 
                 From    =>'toto1@alcan.com', 
                 To      =>'toto2@alcan.com', 
                 Cc      =>'toto3@yahoo.fr, toto4@alcan.com', 
                 Subject =>'A message with 2 parts...', 
                 Type    =>'multipart/mixed' 
                 ); 
 
    ### Add parts (each "attach" has same arguments as "new"): 
    $msg->attach(Type     =>'TEXT', 
                 Data     =>"Here's the GIF file you wanted" 
                 ); 
    $msg->attach(Type     =>'text/plain', 
                 Path     =>'old_REF_ RAGP_get_xml.ftp', 
                 Disposition => 'attachment' 
                 ); 
 
    ### Send in the "best" way (the default is to use "sendmail"): 
    $msg->send; 
 
 
  #Filename =>'logo.gif',

30/03/2006, 11h06
Mr6
avec ceci avant :
Code:

1 2 MIME::Lite->send('smtp', "$SMTP_SERVER", Timeout=>60);
ou $SMTP_SERVER correspond à ton serveur smtp, ca marchera mieux, sinon par défaut il cherche sendmail ;)