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 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