SendMail

TMailer

procedure SendMail

Description

La méthode SendMail effectue l'envoi du mail vers le serveur STMP déclaré dans la propriété SMTPHost.

Dans un premier temps, le mail est composé avec un appel à SaveToStream vers la propriété MailStream d'un objet TSimpleMail, puis il est envoyé via un thread secondaire en utilisant la classe TThreadMail.

Le retour d'information se fait, dans le thread principal, via les événements de la classe TMailer.

Exemple

begin
  Mailer1.MailFrom.EMailAddr := 'Paul TOTH <tothpaul@execute.re>';
  Mailer1.MailBody.Subject := 'Mail exemple';
  Mailer1.MailBody.Text := 'Text du mail';
  Mailer1.Recipients.AddMail('Paul TOTH <tothpaul@execute.re>');
  Mailer1.SendMail;
end;