TSMTPProtocol.CloseSMTP
| TSMTPProtocol = class (TObject) | Interface de TSMTPProtocol | Exemples de TSMTPProtocol |
Qubes 10.0 Met fin à la connexion SMTP
Syntaxe
procedure CloseSMTP()
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.");
/**
* Envoi de messages...
*/
// 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.");
/**
* Envoi de messages...
*/
// Fermeture de la connexion SMTP
smtp.CloseSMTP();