Code Windev pour envoi d'email (Exemple)

PROCEDURE Envoi_Mail(ec_Message est chaîne)
lc_SMTP est une chaîne = INILit("Email", "MailServer", "", gc_Ini)
lc_Expéditeur est une chaîne = INILit("Email", "Expéditeur", "", gc_Ini)
lc_Destinataire est une chaîne = INILit("Email", "Destinataire", "", gc_Ini)

EmailOuvreSessionSMTP("SessionSMTP", lc_SMTP)
EmailRAZ()
Email.Expéditeur=lc_Expéditeur
Email.NbDestinataire=1
Email.Destinataire[1] = lc_Destinataire
Email.Sujet = "xxxxxx"
Email.Message = ec_Message
EmailEnvoieMessage("SessionSMTP")
EmailFermeSession("SessionSMTP")

=====================================================

Exemple de fichier INI :

[EMail]
MailServer=189.15.1.8
Expéditeur=sender@monsite.com
Destinataire=dest@monsite.com