eml Anhänge mit Delphi öffnen

[tr909]

Evtl die Property Encoding von TidMessage auf meMIME stellen.
Danach musst du die Mail Parsen. leider funtioniert das bei mir noch nicht so sauber. (bei Attachments und emails mit html und plain-text)

Aber um den Body-text zu bekommen sollte es in etwas so aussehen.

Delphi-Quellcode:

procedure ImportMail (const fname: string; var body : TStrings);
begin
  IdMsg.LoadFormFile(fname);
   if IdMsg.MessageParts.Count > 0 then
  begin
    for intIndex := 0 to Pred(IdMsg.MessageParts.Count) do
      if not (IdMsg.MessageParts.Items[intIndex] is TIdAttachment) then
         body.AddStrings(TIdText(IdMsg.MessageParts.Items[intIndex]).Body);
  end
  else
     body.AddStrings(IdMsg.Body);
end;

Ansonsten kann ich dir noch empfehlen mal das Mail-Demo der Indys anzugucken. So habe ich es auch gemacht.

Gruß
tr909