Cargar un archivo eml en un memo...
 

Que tal compañeros, me encuentro en la necesidad de cargar un archivo eml en un memo, eso ya lo pude hacer con

Código Delphi [-]
 
  Memo1.Lines.LoadFromFile('c:\tmp\correo.eml')

pero no es como me gustaría mostrarlo, quiero que solo aparesca el cuerpo del mensaje, y en otros label mostrar el PAra: CC: Asunto: , estuve viendo que con el componente NMPOP3 se puede hacer, la cuestión es como le cargo el archivo eml a ese componente, estaba pensado en algo así:

Código Delphi [-]
 
  NMPOP31.Assign('c:\tmp\correo.eml');

Esta es la parte en la cual necesito la ayuda, ya con eso estaría del otro lado, pues basta con hacer lo siguiente y obtenemos todos los datos.

Código Delphi [-]
 
  Edit1.Text := NMPOP3.MailMessage.From;
  Edit2.Text := NMPOP3.MailMessage.Subject;
  Memo1.Lines.Assign(NMPOP3.MailMessage.Head);
  Memo2.Lines.Assign(NMPOP3.MailMessage.Body);

Saludos.

Vicente López.

:confused: Una luz por favor...

Siempre queda la opción de hacerlo a pie.

Revisas línea por línea. Si la línea comienza con To:, el resto de la línea será el destinatario; si comienza con Subject:, el resto será el asunto, etc.

Cuando encuentres una línea en blanco querrá decir que ya terminaron los encabezados. Lo que sigue es el cuerpo del mensaje.

Bye

A ver, un ejemplo menos cavernícola :)

Código Delphi [-]
IdMessage1.LoadFromFile('archivo.eml');
Edit1.Text := IdMessage1.Headers.Values['To'];
Edit2.Text := IdMessage1.Headers.Values['Subject'];
Memo1.Lines.AddStrings(IdMessage1.Body);

IdMessage es un componente que viene con los componentes Indy

Bye

Gracias keyboy, pero desafortunadamente no funciona la línea de abajo

me marca el siguiente error:


Se veia bien :(

Debe ser cosa de la versión. Yo lo probé con la 10.

Bye

No encuentro de donde ver la versión que tengo instalada, voy a bajarme la última versión para probar, gracias KeyBoy.

Saludos.

Vicente López.