Execute Mailer est la solution la plus simple pour envoyer des mails sous Embarcardero Delphi XE2. Le composant TMailer est compatible Windows 32 bits, Windows 64 bits et MacOSX !
Placez le composant sur une fiche VCL ou FMX, renseignez les propriétés dans l'inspecteur d'objet ou par programme, et votre application est prête à envoyer des mails.
begin Mailer1.Clear(); Mailer1.SMTPHost.HostName := 'smtp.fai.fr'; Mailer1.SMTPHost.Port := 587; Mailer1.MailFrom.EMailAddr := 'Paul TOTH <contact@execute.re>'; Mailer1.Recipients.AddMail('Paul TOTH <contact@execute.re>'); Mailer1.MailBody.Subject := 'Votre composant TMailer pour Delphi XE2'; Mailer1.MailBody.Text := 'Ce composant est très pratique et simple d''usage'; Mailer1.MailBody.Attachments.AddFile('Grettings.jpg'); Mailer1.SendMail; end;