TIdMessage (Indy) Flags setzen

[Towmuz]

Tag auch,

ist es irgendwie möglich sowas hier zu veranstalten?

Delphi-Quellcode:

    MailReader := TIdMessage.Create;
    MailReader.LoadFromFile(Filename);
    ... mach was mit der Mail ...
    MailReader.Flags := {MailReader.Flags + }[mfSeen];
    MailReader.SaveToFile(Filename);

Also Maildatei (eml) von der Platte lesen und auf erledigt setzen, damit sie vom Programm als "schon bearbeitet" erkannt werden kann beim nächsten Durchlauf.

Der Ablauf oben läuft ohne Fehler und die Mail wird auch neu gespeichert, die Flags allerdings nicht. Warum?

[mjustin]

SaveToFile speichert nur die Mailheader und (optional) den Mailbody ab. Flags sind nicht darin enthalten.
Eine Lösung wäre, die SaveToFile Methode durch eine andere zu ersetzen, die auch weitere Informationen speichert. Dann muss LoadFromFile natürlich auch passend gemacht werden.

[Towmuz]

Wie funktioniert das denn regulär das eine Mail als gelesen markiert wird? Ist das was Serverseitiges? (Kein Plan von dem Thema)
Dieses SaveToFile umschreiben scheint mir ein enormer Aufwand zu sein

[mjustin]

Zitat von Towmuz:

Wie funktioniert das denn regulär das eine Mail als gelesen markiert wird? Ist das was Serverseitiges? (Kein Plan von dem Thema)
Dieses SaveToFile umschreiben scheint mir ein enormer Aufwand zu sein

Im Internet fand ich den Hinweis, dass dieses Flag von IMAP verwendet wird. In diesem Fall ist es serverseitig, d.h. der Client erfährt nach dem Abrufen der Nachricht, welche Flags diese bereits hat. Flags kann aber auch beliebig clientseitig verwendet / gesetzt werden. Daher heisst es auch ganz allgmein "Flags" (und nicht z.B. IMAPFlags).

[nahpets]

Soweit ich weiß, wird in der Regel die Verwaltung der Flags für gelesen ... vom Client übernommen.

Wenn Du z. B. von verschiedenen Rechnern mit unterschiedlichen Clients auf das gleiche Postfach zugreifst, wirst Du feststellen, dass die Anzeige der Gelesenmarkierung von Client zu Client abweicht.

Auch eine per Webinterface gelesene und entsprechend markierte Mail enthält im Client nicht die Gelesenmarkierung. Dito. umgekehrt.

Etwas überspitzt formuliert:

Man muss je Client alles lesen, egal wie oft man es woanders schon gelesen hat.

Bei IMAP mag das anders sein, wenn es von allen Clients unterstützt wird.

[Towmuz]

Ok dann anders gefragt.
Wie kann ich mit Delphi diese Flags setzen?