IMAP comment passer le flag en "non vu"
Bonjour,
Je contrôle mes messageries avec un programme perl que je lance régulièrement par le planificateur.
J'utilise : Net::IMAP::Simple & MIME::Parser
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| ...
foreach my $MsgNum (keys %$Index) {
if( !$imap->seen($MsgNum) ) {
my $fh = $imap->getfh( $MsgNum );
my $parser = new MIME::Parser;
if ( !-d $RepTmp.$Bal ) {
mkdir $RepTmp.$Bal;
}
$parser->output_under($RepTmp.$Bal);
my $entity = $parser->parse($fh);
close $fh;
my $From = $entity->head->get('From');
my $Subject = $entity->head->get('Subject');
my $TimeStamp = unmime $entity->head->get('Date');
my $decoded = decode("MIME-Header", $From);
$From = $decoded;
$decoded = decode("MIME-Header", $Subject);
$Subject = $decoded;
... |
Ce qui a pour effet de modifier le Flag "VU" et lorsque je vais dans Thuderbird les dossiers qui contiennent de nouveaux messages ne sont plus en bleu (pas pratique).
Est-il possible de repasser le Flag en "Non vu" ? après le
$imap->getfh( $MsgNum )
MERCI d'avance pour vos suggestions
[Résolu] en Mail::IMAPClient
Bonjour,
Entre Net::IMAP::Simple & Mail::Box::IMAP4 très complet, trop pour mes petits besoins, j'ai opté pour Mail::IMAPClient qui le fait très bien :
Code:
$imap->unset_flag("Seen",@msgs);
Par contre j'utilise toujours MIME:parser pour parser la totalité du message, une seule instruction pour retrouver sur disque le courrier aux formats .txt, .html ainsi que les pièces jointes, ce qui donne après la connexion, un petit extrait :
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
30
31
32
33
34
| my $folder = 'INBOX';
$imap->select($folder);
my @msgs = $imap->unseen();
print "\nNBSEEN= @msgs - \n";
foreach my $msg (@msgs) {
my $string = $imap->message_string($msg);
# print "String = $string\n";
my $Subject = $imap->get_header($msg, "Subject");
my $decoded = decode("MIME-Header", $Subject);
$Subject = $decoded;
print "SUBJECT=$Subject\n";
my $From = $imap->get_header($msg, "From");
print "FROM=$From\n";
my $Date = $imap->get_header($msg, "Date");
print "DATE=$Date\n";
my $To = $imap->get_header($msg, "To");
print "TO=$To\n";
my $parser = new MIME::Parser;
if ( !-d $RepTmp.$Bal ) {
mkdir $RepTmp.$Bal;
}
$parser->output_under($RepTmp.$Bal);
my $entity = $parser->parse_data($string);
$imap->unset_flag("Seen",@msgs);
}
$imap->logout(); |
