Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Problema con Formato de texto al enviar un email (https://www.clubdelphi.com/foros/showthread.php?t=50060)

m.ruiz 07-11-2007 10:31:12

Problema con Formato de texto al enviar un email
 
Hola a todos!! Buenos días:
A ver si alguien me puede echar una mano con esto, porque desde luego yo estoy algo perdida. No se exactamente dónde me estoy colando.

Estoy enviando un email a través de outlook. Yo le mando los datos desde delphi de esta manera:

{Aqui os paso el código. Disculpad por la manera de ponerlo, pero es que no encuentro la guía de estilo de este foro, y no se como hacer que aparezca como lo hace la mayoría de los usuarios}

Código Delphi [-]
procedure TForm6.Label3Click(Sender: TObject);
Var
MailTo:String;
Body:String;
Archivo:String;
CC:String;
begin
MailTo := Form7.Edit1.Text;
Body := 'Ficha de Propietario:' + #13
+ 'Nombre Completo: '+ Form5.Edit15.Text + #13
+ 'Fecha Alta: '+ Form5.Edit16.Text + #13
+ 'Dirección: '+ Form5.Edit17.Text + #13
+ 'Nif/Cif: '+ Form5.Edit18.Text + #13
+ 'Municipio: '+ Form5.Edit19.Text + #13
+ 'C.P: '+ Form5.Edit20.Text + #13
+ 'Provincia: '+ Form5.Edit21.Text + #13
+ 'Profesion: '+ Form5.Edit22.Text + #13
+ 'Telefono: '+ Form5.Edit23.Text + #13
+ 'Telefono Móvil: '+ Form5.Edit24.Text + #13
+ 'Fax: '+ Form5.Edit25.Text + #13
+ 'Empresa: '+ Form5.Edit26.Text + #13
+ 'Contacto: '+ Form5.Edit27.Text + #13
+ 'Observaciones: '+ Form5.Edit28.Text + #13
+ 'Estado Propietario: '+ Form5.Edit29.Text + #13
+ 'Estado Civil: '+ Form5.Edit30.Text + #13
+ 'Sexo: '+ Form5.Edit31.Text + #13
+ 'Fecha Nacimiento: '+ Form5.Edit32.Text + #13;
 
ShellExecute( Handle, 'open',
PChar(
'mailto:' + Trim( MailTo ) +
'?subject=' + 'Ficha de Propietario' +
'&body=' + Body),
'',
'',
SW_SHOW );
end;

El proceso me lo hace correcto. hasta aquí todo bien. Como véis en la creación del cuerpo de mensaje, paso varias líneas con #13 para que me vaya haciendo saltos de linea.
Pues bien esto es lo que no me funciona. Cuando me aparece el mensaje en outlook, pone todas las líneas seguidas, no me respeta el salto de línea, y claro, estéticamente queda bastante mal.

Lo curioso, es que si yo hago un:

Showmessage(body);

antes de que me lo mande a Outlook observo que ha colocado los saltos de línea correctos, pero al mostrarlos en outlook lo hace todo seguido.

En fin, no se que hacer con esto. NO se si hay que especificar algo más para mandarlo a outlook o no se.

Espero que alguien me pueda ayudar.
Y por cierto, si me podéis pasar donde están las guias de estilo del foro os lo agradezco así no escribiré más mensajes así de "feos".
gracias por adelantado!

gluglu 07-11-2007 12:00:51

Prueba en vez de con #13, poniendo #13#10 ;)

m.ruiz 07-11-2007 12:59:43

No funciona
 
Si, eso también lo había probado pero me temo que no ha funcionado.
No se que está pasando.

gracias de todas formas por tu aportación.
saludos!


La franja horaria es GMT +2. Ahora son las 00:56:20.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi