Hola MARLON1, has la prueba de mostrar el ContentType del MessageParts y nos dices que te sale, para ver por donde solucionar el problema.
Código Delphi
[-]
for i:=0 to idMessage.MessageParts.Count - 1 do
begin
showmessage(idMessage.MessageParts.Items[i].ContentType);
....................................
end;
Saluditos