Saltos de linea con stringlist

[[seoane]]

Prueba codificando el texto según la normativa RFC 1738.

Código Delphi [-]
function URLEncode(Str: string): string;
var
  i: integer;
begin
  Result:= '';
  for i:= 1 to Length(Str) do
    if Str[i] in ['A'..'Z','a'..'z','0'..'9','-','_','.'] then
      Result:= Result + Str[ i ]
    else
      Result:= Result + '%' + IntToHex(Ord(Str[ i ]),2);
end;

El código que tu pasa quedaría así

Código Delphi [-]
pChar('mailto:'+URLEncode(Trim(Destino))+ '?subject=' + URLEncode(Trim(Asunto))+'&body='+URLEncode(Textos.Text))

No lo he probado pero con eso debería bastar, cuentanos haber si resulto bien.

EDITO: Ya lo he probado y parece que funciona, aunque no si si fue un error al copiar, pero el primer '&' debería ser un '?'.

[JuanHC]

Hola,

He probado le ejemplo y funciona perfectamente.

Muchas gracias.