Discussion :

[vince2005]

Quel est la commande pour envoyé un fichier en pièce jointe via le module 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
 
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

[Jedai]

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 :

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
 
    ### 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ï

[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

[vince2005]

A qui sert :

Code :

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

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

Merci

[vince2005]

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 :

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
 
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',

[Mr6]

avec ceci avant :

Code :

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

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