Récupérer des mails en fonction de l'Objet

2 réponses

Franky

26/06/2005 à 19:04

Bonjour, je débute totalement sur Perl, et je souhaiterai réaliser un petit
script qui permette de récupérer des emails sur mon compte POP, mais
uniquement si dans le champs Objet le mot Morning Meeting est présent, pour
ensuite rediriger ce(s) mails vers mon compte xxx@imode.fr

Si quelqu'un peut me mettre sur la voie, d'avance merci

2 réponses

DoMinix

27/06/2005 à 01:42

Bonjour, je débute totalement sur Perl, et je souhaiterai réaliser un petit
script qui permette de récupérer des emails sur mon compte POP, mais
uniquement si dans le champs Objet le mot Morning Meeting est présent, pour
ensuite rediriger ce(s) mails vers mon compte

Si quelqu'un peut me mettre sur la voie, d'avance merci

DoMinix

27/06/2005 à 02:20

Bonjour, je débute totalement sur Perl, et je souhaiterai réaliser un petit
script qui permette de récupérer des emails sur mon compte POP, mais
uniquement si dans le champs Objet le mot Morning Meeting est présent, pour
ensuite rediriger ce(s) mails vers mon compte

Si quelqu'un peut me mettre sur la voie, d'avance merci

le module Net::POP3 fait tout pour toi.

#!/usr/bin/perl
use Net::POP3;

$pop = Net::POP3->new( 'pop.serveur', Timeout => 60 );

if ( $pop->login( q/monlogin/, "mot-de-passe" ) > 0 ) {
my $msgnums = $pop->list; # hashref of msgnum => size
my ( $num, $size ) = $pop->popstat();
print "en ligne: $size bytes pour $num message(s)n";
foreach my $msgnum ( sort keys %$msgnums ) {
print $msgnum . "/" . $num . "n";
print grep /^Subject:/i,
@{ $pop->top( $msgnum, 0 ) };
}
}
else { print "rien ?! $!n"; }
$pop->quit;

--
dominix

Récupérer des mails en fonction de l'Objet

2 réponses

Veuillez sélectionner un problème