[MARLON1]

Empezado por Caro

Hola Marlon1, prueba de esta forma:

Código Delphi [-] for i:=0 to idMessage.MessageParts.Count - 1 do begin if (idMessage.MessageParts.Items[i] is TIdText) then memo1.Lines.Text:= TIdText(idMessage.MessageParts.Items[i]).Body.Text; end;


Saluditos

hola caro gracias por tu pronta respuesta, probe el codigo que me proporcionas, declare la variableTIdText de la siguiente forma, nose si este bien, pero el programa me marca error : que el operador no es valido.
TIdText: TidMessage;

Código Delphi [-]
    for i:=0 to idMessage.MessageParts.Count - 1 do     begin     
      if (idMessage.MessageParts.Items[i] is TIdText) then      
          memo1.Lines.Text:= TIdText(idMessage.MessageParts.Items[i]).Body.Text;    
    end;

gracias