Enviar mail con archivo adjunto desde Delphi 2010

[Casimiro Noteví]

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 Noteví]

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 := '[email protected]';
  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 Noteví]

¿Estás usando Indy?
Mira este hilo.

[tulio]

Indy NO uso

[Casimiro Noteví]

Entonces esto puede servirte de ayuda.