Hallo,
ich möchte mit meinem email client und den indys alle eingegangenen
nachrichten auf einem imap server auf einen anhang prüfen.
leider funktionieren dinge wie MessageParts.AttachmentCount
oder length(TheMsg.Headers.Values['X-Attachments']) > 0 irgendwie nicht.
oder stellt der imap server evtl selbst eine möglichkeit (flag) bereit?
hat vielleicht jemand eine idee wie ich das problem lösen kann?
Delphi-Quellcode:
Inbox.RowCount := nCount + 1;
for i := 0 to nCount-1 do begin
TheImap.GetUID(i+1, TheUID);
TheImap.UIDRetrieveFlags(TheUID, TheFlags);
TheImap.UIDRetrieveHeader(TheUID, TheMsg);
Inbox.Cells[0, i+1] := IntToStr(i+1);
Inbox.Cells[1, i+1] := TheUID;
if length(TheMsg.Headers.Values['X-Attachments']) > 0 then
Inbox.Cells[2, i+1] := 'yes'
else
Inbox.Cells[2, i+1] := 'no';
Inbox.Cells[3, i+1] := ' ' + LowerCase(TheMsg.Subject);
end;