MaSession est un emailSessionSMTP
MaSession..AdresseServeur="SSL0.OVH.NET"
MaSession..Nom="xxxxxxx@xxxxxxxxx.com"
MaSession..MotDePasse="xxxxxxxx"
MaSession..Port=465
MaSession..Option=optionSSL

// Ouvre la session SMTP
SI PAS EmailOuvreSession(MaSession) ALORS
Erreur("Impossible de se connecter au serveur SMTP.", ...
ErreurInfo())
RETOUR
FIN

MonMessage est un Email
MonMessage..Expediteur = SAI_Émail
MonMessage..Sujet = SAI_Sujet
MonMessage..HTML = SAI_Saisir_le_message
MonMessage..Message = HTMLVersTexte(SAI_Saisir_le_message)


// Ajoute un destinataire
Ajoute(MonMessage..Destinataire,...
SAI_Responsable+";"+SAI_Cc..ValeurAffichée)

// Ajoute la pièce jointe si besoin

monAttache est un emailAttache
sFichier est une chaîne =SAI_Fichier

// Construction de la variable emailAttache
monAttache..Nom = fExtraitChemin(sFichier, fFichier + fExtension)
monAttache..Contenu = fChargeBuffer(sFichier)



SI SAI_Fichier <> "" ALORS
Ajoute(MonMessage..Attache,monAttache)
FIN


// Envoie l'email
SI EmailEnvoieMessage(MaSession, MonMessage) = Faux ALORS
Erreur("Message non envoyé.", ErreurInfo())

SINON
// Message envoyé
ToastAffiche("Message envoyé", toastCourt, ...
cvMilieu, chCentre)



FIN


// Ferme la session SMTP
EmailFermeSession(MaSession)