Envoyer un email en utilisant windev ou Webdev

Procédure pour Envoyer un émail en utilisant Windev ou Webdev

 PROCEDURE Proc_Mail(Subject,txt,Attache="",AdExpéditeur="exemple@email.com")  
 SI InternetConnecté=Faux ALORS  
           RENVOYER Faux  
 FIN  
 User est une chaîne= "Votreemail@gmail.com" 
 Password est une chaîne = "mot de passe"  
 SessionSMTP est une EmailSessionSMTP  
 SessionSMTP..AdresseServeur = "smtp.gmail.com"  
 SessionSMTP..Nom = User  
 SessionSMTP..MotDePasse = Password  
 SessionSMTP..Port = 587  
 SessionSMTP..Option = emailOptionSécuriséTLS  
 Courriel est un objet Email  
 Courriel..AdresseExpéditeur=AdExpéditeur  
 Courriel..Expediteur=Societe.nom  
 Courriel..Destinataire[1] = "Destinataire1@gmail.com"  
 Courriel..Destinataire[2] = "Destinataire2@gmail.com"   
 Courriel..Confidentialité=emailPrivé  
 Courriel..Sujet = Subject  
 Courriel.HTML=txt  
 SI Taille(Attache)<>0 ALORS  
      Courriel..Attache[1].Nom= Attache  
      Courriel..Attache[1].Contenu=fChargeTexte(Attache)  
 FIN  
 SI EmailOuvreSession(SessionSMTP) = Vrai ALORS  
      SI PAS EmailEnvoieMessage(SessionSMTP,Courriel) ALORS  
           RENVOYER Faux  
      FIN  
 SINON  
      RENVOYER Faux  
 FIN  
 RENVOYER Vrai