Hola resulta que armo un string des esta manera para enviar por email.
Código Delphi
[-]
const
NL = '%0d%0a'; 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!!!!