Enviar mail con archivo adjunto desde Delphi 2010

[tulio]

Buen día Foro

necesito enviar mails con archivos adjuntos y no encuentro ninguna rutina, encontre una rutina que envia mails en forma correcta usando shellexecute, pero no se como adjuntarle una archivo.

Si algún alma solidaria me da una ayuda se lo agradezco

Saludosss

[Casimiro Notevi]

Mira los enlaces relacionados de final de página, o una simple búsqueda te devolverá muchos hilos donde se tratan temas similares.
Avisa si no encuentras lo que necesitas.

[tulio]

Gracias Casimiro

pero los ejemplos de abajo no los puedo hacer andar, quisiera saber el codigo para enviar un mail con un adjunto, utilizo Delphi 2010

Graciass

[Casimiro Notevi]

Es que tu pregunta es muy genérica, deberías concretar un poco más, qué componentes usas, qué problema tienes, etc.

[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