Hola foro!
Tengo un problema al momento de mostrar el cuerpo del mensaje en un memo, la conexion la hago utilizando los componentes: POP31, IdSSLIOHandlerSocketOpenSSL1 e Idmessage. al al momento de conectarme esta todo bien me muestra el subject, fecha, from, pero no me muestra el cuerpo del mensaje, ya probe todos los ejemplos aqui en el foro pero en todos me sucede lo mismo espero que pueden ayudarme, gracias de antemano.
este es el codigo que utilizo. (delphi 2010)
Código Delphi
[-]
var
Password: String;
i,no:integer;
begin
memo1.Lines.Clear;
if InputQuery('Recibir e-mail', 'Contraseña', Password) then
begin
idpop31.Username := edit3.Text;
idpop31.Password := Password;
bitbtn1.Enabled:= false;
try
idpop31.Disconnect;
idpop31.Connect;
no:=idpop31.CheckMessages;
be.Caption:=IntToStr(no);
idpop31.Retrieve(no,idMessage1);
edit1.Text:= idMessage1.From.Text;
edit2.Text:= idMessage1.Subject;
label6.Caption:= DateToStr(idmessage1.Date);
memo1.Lines.Text:=idmessage1.Body.Text;
finally
bitbtn1.Enabled := true;
end;
end;
end;