Discussion :

[parano]

Bonsoir,

Je voudrai savoir comment récupérer une piece jointe (c'est une image), from, to, le sujet et le corps d'un mail .

Merci

[iblis]

Bonsoir.

Ta question n'est pas très claire, veux-tu

1. Interroger un serveur mail (quel protocole ? POP, IMAP ?) et récupérer les pièces jointes de chaque mail ?

2. Parser une boîte existante, par exemple au format mbox et, disons, récupérer les images avec les infos du mail les contenant ?

Dans le premier cas, tu peux utiliser Mail::POP3Client ou Net::POP3 pour récupérer les en-têtes et les corps de message. Pour extraire les attachements du corps du message, utilise alors MIME::Parser ou Mail::MIME.

Moi j'utiliserais Mail::POP3Client et MIME::Parser. Jette un oeil à la doc sur le CPAN.

[parano]

Bonsoir.

Ta question n'est pas très claire, veux-tu

1. Interroger un serveur mail (quel protocole ? POP, IMAP ?) et récupérer les pièces jointes de chaque mail ?

2. Parser une boîte existante, par exemple au format mbox et, disons, récupérer les images avec les infos du mail les contenant ?

Dans le premier cas, tu peux utiliser Mail:OP3Client ou Net:OP3 pour récupérer les en-têtes et les corps de message. Pour extraire les attachements du corps du message, utilise alors MIME:arser ou Mail::MIME.

Moi j'utiliserais Mail:OP3Client et MIME:arser. Jette un oeil à la doc sur le CPAN.

Oui, ce que je souhaite faire correspond à la 2ème solution.
Le mail est reçu et il faut l'analyser.

[iblis]

Tu donnes les informations sur ce que tu veux au compte-goutte, toi .

Quel est le format de ta boîte mail ? Dans le cas où ce serait mbox, jette un oeil à Mail::MboxParser, cela devrait certainement faire ton affaire.

Extrait de la doc du CPAN :

Code :

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

1
2
3
4
5
6
7
8
9
use Mail::MboxParser;
# ...
my $mb = Mail::MboxParser->new('some_mailbox',
                                decode     => 'ALL',
                                parseropts => $parseropts);
for my $msg ($mb->get_messages) {
     # ...
     $msg->store_all_attachments(path => '/tmp');
}

[parano]

Tu donnes les informations sur ce que tu veux au compte-goutte, toi .

Désolé.

Quel est le format de ta boîte mail ?

Pour effectuer des tests, j'utilise mon compte yahoo mais je ne sais pas le format de cette boite mail.
Il n'y a pas de format "universel" c'est à dire qui fonctionnerait avec toutes les boites mail ?

Dans le cas où ce serait mbox, jette un oeil à Mail::MboxParser, cela devrait certainement faire ton affaire.

Extrait de la doc du CPAN :

Code :

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

1
2
3
4
5
6
7
8
9
use Mail::MboxParser;
# ...
my $mb = Mail::MboxParser->new('some_mailbox',
                                decode     => 'ALL',
                                parseropts => $parseropts);
for my $msg ($mb->get_messages) {
     # ...
     $msg->store_all_attachments(path => '/tmp');
}

[iblis]

Re-bonsoir. Je n'y comprends plus rien.

Tu veux donc bien interroger un serveur mail et récupérer les messages et attachements (option 1 de mon premier post), n'est-ce pas ?

D'abord, autant que je sache, yahoo ne donne pas d'accès pop3 aux comptes gratuits. Donc si tu as un compte payant ça va, sinon essaie avec un autre (gmail etc).

Sinon c'est donc bien Mail::POP3Client et MIME::Parser que tu dois (enfin, peux) utiliser.

Je te donne un exemple qui download tous tes messages et attachements dans le répertoire courant (attention ça peut foutre du bordel, modifie en cas de besoin, ou limite le nombre de message à downloader).

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
#!/usr/local/bin/perl
use strict; use warnings;
use Mail::POP3Client;
use MIME::Parser;
 
my $pop = new Mail::POP3Client(
                USER     => 'user', # your username
                PASSWORD => 'pa55wd', # your user password
                HOST     => "pop3.server.net" # your pop3 server
);
 
my $outputdir = '.';
my $parser = new MIME::Parser;
$parser->output_dir($outputdir);
 
print $pop->Count();
for (my $i = 1; $i <= $pop->Count(); $i++) {
   my $msg = $pop->HeadAndBody($i);
   my $data = $parser->parse_data($msg);
}

[fred036]

Bonjour,

Je suis en train de programmer un webmail en perl pour mon site et j'utilise le script cité ci-dessus (mais modifié pour qu'il corresponde totalement à ce que je veux faire)...

Néanmoins, je n'arrive pas à récupérer le nom des fichiers créés.

Mon but étant pour chaque mail, d'enregistrer les headers dans mysql ainsi que certaines infos et le mail ainsi que les pièces jointes dans un répertoire spécial destiné à l'utilisateur... Tout fonctionne sauf que à l'insertion dans mysql, je ne connais pas le nom des fichiers que le script perl a enregistré...

Merci de votre aide

Code :

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

1
2
3
4
5
6
7
8
 
# j'enregistre les fichiers
				my $parser = new MIME::Parser;
				$parser->output_dir($outputdir);
				my $msg = $pop->HeadAndBody( $i );
				my $data = $parser->parse_data($msg);
				my $filename = "";
				print "test : ".$filename."\n";

[iblis]

Tu aurais aussi pu ouvrir un nouveau fil avec référence à celui-ci...

Le corps des messages et les attachements peuvent être écrit dans des répertoires individuels (un par message) par appel à output_under() au lieu de output_dir()

Code :

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

$parser->output_under($dir);

Tu trouveras plus de détails dans la doc du module.