Discussion :

[dmganges]

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

[dmganges]

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 :

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

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

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
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();