Cargar un archivo eml en un memo...

[Chente(rMan)]

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.

[Chente(rMan)]

Una luz por favor...

[keyboy]

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

[keyboy]

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

[Chente(rMan)]

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

Empezado por keyboy

IdMessage1.LoadFromFile('archivo.eml');

me marca el siguiente error:

undeclared identifier: 'LoadFromFile'

Se veia bien

[keyboy]

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

Bye

[Chente(rMan)]

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.