Net::IMAP::Simple alle Emails als gelesen markiert (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]12928[/thread]

Net::IMAP::Simple alle Emails als gelesen markiert

Leser: 4

cgnetspher

2008-12-23 01:11

User since
2008-12-23
1 Artikel
BenutzerIn
[default_avatar]

Hy @all

Ich habe ein kleines (grosses) Problem. Ich will mit einem Perl Script von einem IMAP Ordner alle Emails holen und diese sortieren. Soweit funktioniert alles, aber sobald ich ein Email heruntergeladen habe, wird es auf dem IMAP Server als gelesen markiert. Was kann ich tun, damit ich zwar das Email herunterladen kann, aber sein gelesen / ungelesen Status nicht geändert wird?
Eine Überlegung von mir war, dass ich vor dem holen des Emails überprüfe, ob das Email schon gelesen war oder nicht, und falls nicht, dieses Email nachträglich wieder als ungelesen markiere. Ich kriege zwar die Info ob das Email gelesen war, hab aber keinen schimmer, wie ich nun den Status des Emails ändere...

Habt ihr evtl. inputs?

Vielen Dank

Michael

CODE:

Code: (dl )

use Net::IMAP::Simple;

$server = new Net::IMAP::Simple( "SERVER.DE" );
$server->login ("USERNAME", "PASSWORT");
$number_of_messages = $server->select( "IMAP ORDNER" );

foreach $msg (1..$number_of_messages) {
	if ($server->seen( $msg )) {
		$seen = '1';
	} else {
		$seen = '0';
	}
	$lines = $server->get( $msg ); #Von hier an ist es als gelesen markiert.... :-(
	.....
}

murphy

2008-12-23 16:31

User since
2004-07-19
1776 Artikel
HausmeisterIn

Nach der Dokumentation von CPAN:

Net::IMAP::Simple zu schliessen, ist es nicht moeglich, mit diesem Modul die Flags einer Nachricht neu zu setzen :-(

When C++ is your hammer, every problem looks like your thumb.

View all threads created 2008-12-23 01:11.