Enviar mail con archivo adjunto desde Delphi 2010

[tulio]

Casimiro

este código anda bien, pero no me adjunta archivos

Código Delphi [-]
procedure tF_lisingre.button1
var
 MailTo,
  MailSubject,
  MailCC,       
  MailBCC,      
  Mailattachment,
  MailBody: String;
 begin 
  MailTo := 'correo@hotmail.com';
  MailSubject := 'Titulo primero';
  MailCC := '';
  MailBCC := '';
  MailBody := 'Señor/a Profesional '+trim(tablas.t_maeprofeAPENOM.asstring) +', adjunto a este e-mail, se envia detalle de presentación del mes '+copy(datetostr(date),4,2)+ ' año '+ copy(datetostr(date),7,4) ;
  mailattachment:='C:\sistemas\mails\prueba.pdf';
  RunDefaultMailer;

end;


procedure tF_lisingre.RunDefaultMailer;
var
  header,
  mail : String;
  ShellResult : integer;
begin
  if (MailTo ='') then begin  //  también funciona sin destinatario
     ShowMessage('Falta el destinatario...');
     Exit;
  end;
  header := 'mailto:' + MailTo;
  if (MailSubject >'') then header := header + '?Subject=' + MailSubject;
  if (MailCC >'') then header := header + '&cc=' + MailCC;
  if (MailBCC >'') then header := header + '&bcc=' + MailBCC;
  mail := header + '&body=' + MailBody + Signature;
  ShellResult := ShellExecute(Application.mainform.Handle,'open',PChar(mail), nil, nil, SW_MAXIMIZE);
end;

Saludosss

[Casimiro Notevi]

¿Estás usando Indy?
Mira este hilo.

[tulio]

Indy NO uso

[Casimiro Notevi]

Entonces esto puede servirte de ayuda.

[tulio]

Si le saco &attach="c:\temp\test.txt\"

llama al correo y funciona, cuando le agregue ese codigo da el error.

No hay un código para enviar un mail con un adjunto? nadie lo usa en delphi 2010 o superiores ?

[[movorack]]

Hola, tulio!

Como se está usando un programa externo que se llama con ShellExecute. Primero se debería verificar que el comando sea correcto.

La primera prueba que se podría realizar es hacer el llamado desde la línea de comandos (CMD o PowerShell) y que de esta forma se verifique que se envíe el adjunto. Una vez esa prueba sea exitosa, la tarea es replicar ese mismo llamado con el aplicativo