Ver Mensaje Individual
  #1  
Antiguo 07-11-2007
Avatar de m.ruiz
m.ruiz m.ruiz is offline
Miembro
 
Registrado: ene 2007
Posts: 43
Reputación: 0
m.ruiz Va por buen camino
Talking 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!
__________________
MoNiCa

Última edición por dec fecha: 07-11-2007 a las 11:09:44.
Responder Con Cita