[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