Hola:
He realizado un procedimiento para enviar un correo electrónico con ficheros adjuntos, son las facturas del cliente en formato PDF, todo funcina bien, lo que no puedo conseguir es que el correo que llega al usuario los adjuntos se muestren con el nombre y extensión corrspondiente por ejemplo 'Fac001.pdf' en su defecto siempre llegan con extensión .dat, para el procedimiento utilizo los componentes Indy y la carga de los adjuntos lo realizo así:
Código Delphi
[-]
Path := ExtractFilePath(Application.ExeName)+'\Reportes\';
for i := 0 to grdFacturas.SelCount - 1 do begin
grdFacturas.GotoSelection(i);
PdfName := Path+DM.FactuEnviosNumFactura.Value+'.pdf';
if FileExists(PdfName) then TIdAttachmentFile.Create(Mail.MessageParts, PdfName);
end;
Muchas gracias.