TSMTPProtocol - 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();