TSMTPProtocol.InitSMTP
| TSMTPProtocol = class (TObject) | Interface de TSMTPProtocol | Exemples de TSMTPProtocol |
Qubes 10.0 Initialise la connexion SMTP
Syntaxe
Prototype changé!!! function InitSMTP(config: TSMTPConfig; log: array of String): TSMTPResponse (Qubes 10.0)
function InitSMTP(config: TSMTPConfig): TSMTPResponse
config: Objet contenant la configuration à utiliser pour les échanges SMTP.
Retourne les données de la réponse SMTP indiquant comment s'est déroulée l'initialisation. C'est à dire, s'il y a eu une erreur ou si l'initialisation 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.");
/**
* 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();