[pelikno]

Hola resulta que armo un string des esta manera para enviar por email.

Código Delphi [-]
const
  NL = '%0d%0a';   //SALTO DE LINEA PARA LOS EMAIL
function  TfTransfElect.ArmarStringEmail : string;
var s:string;
 begin
  s :='Señor/a pongo en su conocimiento que el programador  depositará en la cuenta Bancaria Nº '
  + tblAuxNRO_CUENTA.AsString + tblAuxDIG_VERIF_CUENTA.AsString + ', la suma de  ' + CurrToStrf(tblAuxIMPORTE.AsCurrency,ffCurrency    ,2)+'en concepto de: '+NL;

   qryConceptoV.ParamByName('numero').Value:= tblAuxnumero.AsString;
   qryConceptoV.ParamByName('anio').Value:= tblAuxanio.AsString;
   qryConceptoV.ParamByName('recibo').Value:= tblAuxLiquidacion.AsString;
   qryConceptoV.Open;
   while not qryConceptoV.Eof do
   begin
   s:=s +'Destino = '+ qryConceptoVDestino.Value + NL;
   s:=s +'Viatico = '+ qryConceptoVViaticos.AsString + NL;
   s:=s +'Movilidad = '+ qryConceptoVMovilidad.AsString + NL;
   qryConceptoV.Next;
   end;
 end;
ArmarStringEmail:= s;

esta funcion la llamo para enviar el email y le mando la variable s que es el mensaje

Código Delphi [-]
procedure TfTransfElect.EnviarCorreo(Direccion,CC,CO,Asunto,Mensaje: string);
var header, mail : String;
 vmail : TMAPIMail;
begin
  vmail := TMAPIMail.Create(Self);
  with  vmail do
    try
      Subject := Asunto;
      Body := Mensaje;
      Recipients.Add(Direccion);
      if CC <> '' then
        Recipients.Add('CC:'+CC);
      if CO <> '' then
        Recipients.Add('BCC:'+CO);
      EditDialog := false;
      if Send then
         beep
      else
        showmessage (MAPIErrorDescription(vmail.LastError));
    finally
      Free;
    end;
end;

el error es que cuando lo envia, no toma los saltos de linea y el cuerpo del email es el siguiente:
Señor/a pongo en su conocimiento que el programador depositará en la cuenta Bancaria Nº 5033, la suma de $ 133,00 en concepto de: %0D%0ADestino = COMISIONES%0D%0AViatico = 0%0D%0AMovilidad = 19%0D%0ADestino = COMISIONES%0D%0AViatico = 0%0D%0AMovilidad = 19%0D%0ADestino = COMISIONES%0D%0AViatico = 0%0D%0AMovilidad = 19%0D%0ADestino = COMISIONES%0D%0AViatico = 0%0D%0AMovilidad = 19%0D%0ADestino = COMISIONES%0D%0AViatico = 0%0D%0AMovilidad = 19%0D%0ADestino = COMISIONES%0D%0AViatico = 0%0D%0AMovilidad = 19%0D%0ADestino = COMISIONES%0D%0AViatico = 0%0D%0AMovilidad = 19%0D%0A


Alguna idea de porque no me toma los saltos de linea el outlook express
Desde ya Muchas Gracias!!!!