TSMTPProtocol.SendMail
| TSMTPProtocol = class (TObject) | Interface de TSMTPProtocol | Exemples de TSMTPProtocol |
Qubes 10.0 Envoie un email avec le protocole SMTP
Syntaxe
Prototype changé!!! function SendMail(mail: TSMTPMailData; log: array of String): TSMTPResponse (Qubes 10.0)
function SendMail(mail: TSMTPMailData): TSMTPResponse
mail: Objet contenant les données de l'email à envoyer.
Retourne les données de la réponse SMTP indiquant comment s'est déroulé l'envoi. C'est à dire, s'il y a eu une erreur, s'il faut réessayer l'envoi ou si l'envoi s'est correctement déroulée.
Remarques
Exemples
// Initialisation du protocole SMTP
var smtp := new TSMTPProtocol;
// Variable recevant les réponses smtp
var smtpResponse : TSMTPResponse;
// Conversion de la configuration en objet
var config := new TSMTPConfig;
config.Host := "localhost";
config.Port := 25;
config.User := "";
config.Password := "";
config.SSL := false;
config.TLS := false;
// Initialisation de la connexion SMTP
smtpResponse := smtp.InitSMTP(config);
// Vérifie que l'initialisation s'est bien passée
if smtpResponse.Action != TSMTPActions.OK then
raise Exception.Create("Failed to initialize SMTP connexion.");
// Création d'un message SMTP
var recipients : Array of String;
var headers : Array [String] of String;
// Ajout des destinataires
recipients.Add("test.mail@creative-it.net");
// Création de l'objet contenant les informations du mail
var mailData := new TSMTPMailData;
// Initialisation des données avec celles passées en paramètre
mailData.Sender := "smtptest@creative-it.net";
mailData.SenderName := "SMTP Test";
mailData.SendTo := recipients;
mailData.Subject := "Test of mail sent through SMTP protocol";
mailData.Body := "Test of sending SMTP mail as an example";
mailData.Headers := headers;
// Envoi du mail
smtpResponse := smtp.SendMail(mailData);
// Vérifie que l'envoi s'est bien passé
if smtpResponse.Action != TSMTPActions.OK then
raise Exception.Create("Failed to send the email.");
// Fermeture de la connexion SMTP
smtp.CloseSMTP();
var smtp := new TSMTPProtocol;
// Variable recevant les réponses smtp
var smtpResponse : TSMTPResponse;
// Conversion de la configuration en objet
var config := new TSMTPConfig;
config.Host := "localhost";
config.Port := 25;
config.User := "";
config.Password := "";
config.SSL := false;
config.TLS := false;
// Initialisation de la connexion SMTP
smtpResponse := smtp.InitSMTP(config);
// Vérifie que l'initialisation s'est bien passée
if smtpResponse.Action != TSMTPActions.OK then
raise Exception.Create("Failed to initialize SMTP connexion.");
// Création d'un message SMTP
var recipients : Array of String;
var headers : Array [String] of String;
// Ajout des destinataires
recipients.Add("test.mail@creative-it.net");
// Création de l'objet contenant les informations du mail
var mailData := new TSMTPMailData;
// Initialisation des données avec celles passées en paramètre
mailData.Sender := "smtptest@creative-it.net";
mailData.SenderName := "SMTP Test";
mailData.SendTo := recipients;
mailData.Subject := "Test of mail sent through SMTP protocol";
mailData.Body := "Test of sending SMTP mail as an example";
mailData.Headers := headers;
// Envoi du mail
smtpResponse := smtp.SendMail(mailData);
// Vérifie que l'envoi s'est bien passé
if smtpResponse.Action != TSMTPActions.OK then
raise Exception.Create("Failed to send the email.");
// Fermeture de la connexion SMTP
smtp.CloseSMTP();