TIDmessage!!!

[*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

[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

[*Caro*]

Hola de nuevo, en uses añade IdText.

Saluditos

[MARLON1]

Empezado por Caro

Hola de nuevo, en uses añade IdText.

Saluditos

Muchas gracias, ya me muestra el body del mensaje!! ahora solo investigare como mostrar solo el mensaje, por que me muestra codigo jeje, pero muchas gracias.

[MARLON1]

Código Delphi [-]
memo1.Lines.AddStrings(TIdText(idMessage1.MessageParts.Items[i]).Body);

saludos y gracias por su ayuda!