Einzelnen Beitrag anzeigen

PeterPanino

Registriert seit: 4. Sep 2004
1.465 Beiträge
 
Delphi 10.4 Sydney
 
#5

AW: Plaintext aus .EML-Datei extrahieren?

  Alt 7. Apr 2016, 21:24
Vielen Dank, ContentType war der richtige Tipp. Dieser Code ergibt jetzt den body:

Delphi-Quellcode:
for I := 0 to IdMessage.MessageParts.Count - 1 do
begin
  if IdMessage.MessageParts.Items[I] is IdText.TidText then
  begin
    if IdText.TidText(IdMessage.MessageParts.Items[I]).ContentType = 'text/htmlthen
      Memo2.Lines.Add(IdText.TidText(IdMessage.MessageParts.Items[I]).Body.Text);
  end;
end;
  Mit Zitat antworten Zitat