.eml files to decode

[QEnnay]

Hi,

I exported some emails and they are in xxx.eml format with the body being base64 encoded.

I have written a rough 'n' dirty to decode the base64 but it is still in some form of XML/HTML (or whatever it is) encoding.

I then tried using the HTMLDecode function but it left it the text XML/HTML Body unchanged.

Is there some simple way to extract the actual email stuff from the .eml files?

Thanks

[dsiders]

I exported some emails and they are in xxx.eml format with the body being base64 encoded.

I have written a rough 'n' dirty to decode the base64 but it is still in some form of XML/HTML (or whatever it is) encoding.

I then tried using the HTMLDecode function but it left it the text XML/HTML Body unchanged.

Is there some simple way to extract the actual email stuff from the .eml files?

There is nothing simple about RFC 5322 message formats.

Indy has the TIdMessage class which handles the headers and messages bodies. But I would not call it simple.

[QEnnay]

But I would not call it simple.

By "simple," I meant a Lazarus/FPC Library or code snippet. I just need to get rid of all the "<br>" etcTags within the base64 decoded text.

[winni]

Hi!

Something simple like this??

Code: Pascal  [Select][+][-]

1. procedure killTags (var s: string);
2. var p,q : integer;
3. begin
4. repeat
5. p := pos ('<',s);
6. q := pos ('>',s);
7. if q > p then delete (s,p,q-p+1) else exit;
8. until (p=0) or (q=0);;
9. end;
10.  

Winni

[engkin]

Class THTML2TextRenderer from unit HTML2TextRender:

Code: Pascal  [Select][+][-]

1. uses HTML2TextRender...
2. ...
3. function HTML2Text(const AHTMLStr:String):String;
4. begin
5.   with THTML2TextRenderer.Create(AHTMLStr) do
6.     try
7.       Result:=Render;
8.     finally
9.       Free;
10.     end;
11. end;

[JuhaManninen]

Class THTML2TextRenderer from unit HTML2TextRender:

Code: Pascal  [Select][+][-]

1. uses HTML2TextRender...
2. ...
3. function HTML2Text(const AHTMLStr:String):String;
4. begin
5.   with THTML2TextRenderer.Create(AHTMLStr) do
6.     try
7.       Result:=Render;
8.     finally
9.       Free;
10.     end;
11. end;

I realized such a helper function should be included in the unit. I added it in 28dc8193a3. Function RenderHTML2Text.

The renderer is used for Lazarus IDE hints when the TurboPowerIProDsgn package is not installed.

[engkin]

I realized such a helper function should be included in the unit. I added it in 28dc8193a3. Function RenderHTML2Text.

Thank you!