sAdresseServeur est une chaîne
sNomConnexion est une chaîne
sMotDePasseConnexion est une chaîne
sPort est une chaîne
bOptionSSL est un booléen
sAdresseExpéditeur est une chaîne
sExpéditeur est une chaîne

sAdresseExpéditeur=Adresse mail de l'expéditeur
sExpéditeur=Parametres.Adresse_email

sAdresseServeur=Adresse du serveur de mail (commence par smtp)
sNomConnexion=nom de la connexion
sMotDePasseConnexion=mot de passe de la connection
sPort=port du serveur (ex 465,587)
bOptionSSL=TLS OU SSL

gSessionSMTP est une emailSessionSMTP
gSessionSMTP..AdresseServeur = sAdresseServeur
gSessionSMTP..Nom = sNomConnexion
gSessionSMTP..MotDePasse = sMotDePasseConnexion
gSessionSMTP..Port = sPort

SI bOptionSSL=0 ALORS
gSessionSMTP..Option = optionSSL
SINON
gSessionSMTP..Option = emailOptionSécuriséTLS
FIN
// Contenu de l'email
UnCourriel est un Email

TexteVersHTML(Contenu,alphabetUTF8)
UnCourriel..HTML=Contenu
UnCourriel..Expediteur=sExpéditeur (mon nom)
UnCourriel..AdresseExpéditeur = sAdresseExpéditeur (mon_adresse@mon_fournisseur)
UnCourriel..Destinataire[1] = Destinaire
UnCourriel..Sujet = Sujet

//UnCourriel..Message=RTFVersHTML(Contenu) //Contenu passé en paramètre ou dans une zone de texte ou comme ici dans une zone HTML
UnCourriel..Cci[1]=sExpéditeur

SI PièceJointe="" ALORS

SINON
EmailChargeFichierAttaché(UnCourriel,PièceJointe)
FIN
dDateDuMail est une Date=DateDuJour()
SI EmailOuvreSession(gSessionSMTP) = Vrai ALORS
SI EmailEnvoieMessage(gSessionSMTP, UnCourriel) = Faux ALORS
Erreur("L'envoi de l'email a échoué.", ErreurInfo(errMessage))
SINON
SysIconeAjoute("")
SysIconeAfficheBulle("Votre mail à bien été envoyé","Email",sysTypeBulleInfo)
FIN
SINON
Erreur("Impossible d'établir la connexion", ErreurInfo(errMessage))
AjoutMailsEnvoyés(PièceJointe,Destinaire,"Erreur sur envoi de mail",dDateFacture)
FIN

RETOUR