TIdMessage (Indy) Flags setzen

[Towmuz]

Ein bischen hat ich das schon vermutet, von wegen POP3 verwaltet die FLAGS nicht. (kA von der Materie)

Nach kurzem Überflug über die IMAP Technik, fällt die Flagsetzerei scheinbar aus,
Weil das Verwalten der Flags scheinbar nur auf dem Mailserver passiert und auch das als einzig Sinnvolle erscheint.

Mit nem Mailclient soll das nichts zu tun haben. Folgender Ablauf wars dann auch schon.
Geplant war:

• Verzeichnis (Postfach mit *.eml) auslesen
• Anhänge verarbeiten und Mail auf erledigt setzen
• Nach 5 Min. wieder auf Anfang und nur Anhänge von nicht Erledigten bearbeiten

So müsste ich nicht noch irgendwas aus UID und MsgUID basteln um zu wissen welche Mail schon dran war.

MailSubject im Header kann man ja speichern und das Ganze so kenntlich machen, find ich irgendwie nich so doll, aber zur Not wirds dann wohl gehen

[nahpets]

Werden die erledigten dann nachher noch benötigt?

Ansonsten: Erledigte einfach umbenennen, z. B. die Dateiendung in .erledigt ändern?

Dann gibt es bei der TIDMessage noch die ExtraHeaders.

Das ist letztlich eine TStringList. Dort kannst Du eigene Einträge machen, wichtig ist nur, dass sie nicht mit irgendwas bereits verwendetem kollidieren.

Sinngemäß müsstest Du dann über IdMessage.ExtraHeaders.SetValue('X-Towmuz-HasDone',DateTimeToStr(Now)); einen Erledigungsvermerk setzen können und über IrgendeineVariabel := IdMessage.ExtraHeaders.GetValue('X-Towmuz-HasDone'); überprüfen können.
Das geht so nicht, die Methoden sind nicht veröffentlicht.

Müsste aber über Values funktionieren.

[Towmuz]

Ui ExtraHeaders, das hab ich noch nicht gesehen, danke das wird den Zweck erfüllen.

Datei umbenennen/verschieben ist leider nicht möglich (was aber das Einfachste wäre)

Edit:

So hauts hin mit den ExtraHeadern

Schreiben:

Delphi-Quellcode:

    IdMessage.ExtraHeaders.AddValue('x-irgendwas', 'Ausgelesen');
    IdMessage.SaveToFile(_Filename);

Auslesen:
    stringDing := IdMessage.Headers.Values['x-irgendwas']; //Über Headers abfragen nicht über ExtraHeaders