eml Anhänge mit Delphi öffnen

[Digielm]

Hallo Leute mal ne Frage ich möchte EML Mailanhänge nicht mit dem Standard Programm welches in Windows eingetragen ist öffenen sondern in meinem eigenen Projekt über eine seperate Unit.

Wie geht das wenn überhaupt ??

[Matze]

Hi,

möchtest du die Dateiendung *.eml mit deinem Programm verknüpfen oder habe ich das nun falsch verstanden?

[Digielm]

Ja genau das möchte ich und wie kriege ich das ganze dann vernünftig wie in Outlook angezeigt

[Digielm]

ich lade die EML Datei so :
     idmessage1.LoadFromFile(filename); und bekomme die fehlermeldung:

This is a multi-part message in MIME format.

wie kann ich das abschálten damit dich den Message Bodytext sauber angezeigt bekomme ??

[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

[Digielm]

Ja danke hatte ich dann auch rausbekommen

Aber trotzdem danke