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:arser

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
...
 
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