Recibir Mensajes de Correo
 

Hola a todos:

Utilizo D5 y el componente NMPOP3 de la pestaña "FastNest" para recibir correos y mi problema es el siguiente:

Para recuperar el texto del mensaje recuperado hago lo siguiente:

Código Delphi [-]
procedure TForm1.NMPOP31RetrieveEnd(Sender: TObject);
begin
  Memo1.Text := NMPOP31.MailMessage.Body.Text;
end;

Adjunto un fichero (002.bmp) y en el memo obtengo esta maravilla que os adjunto y que me tiene un poco de los nervios:

Yo solo quiero que aparezca el mensaje que es: "ffffffffffffffffffff" y no todo esto que me aparece. ¿Creeis que tiene algo que ver que adjunte o no un archivo?

Sabría alguien por que me pasa esto.

Muchas gracias por vuestro tiempo e interés

Marcial

Help!
 

Marcial, lo mismo me sucedía a mí hace algún tiempo hasta que logré resolver ese problema. Pero sucede que utilizo el TidPOP de la Indy para bajar los mensajes desde el servidor.

Dime si tienes los componentes de la Indy instalados para ayudarte con la forma en que yo descargo los emails. De lo contrario creo que ambos estamos en la misma situación.



:eek::eek::eek:

Espero te sirva, es un pequeño ejemplo. Cualquier cosa consultas. Saludos.

Código Delphi [-]
POP.Retrieve([tu numero de msg], Msg);

for i := 0 to Pred(Msg.MessageParts.Count) do
begin
    if Msg.MessageParts.Items[i] is TIdText then
    begin
        Showmessage(TIdText(Msg.MessageParts.Items[i]).Body);
    end;
end;