pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués


Le code suivant permet d'envoyer un e-mail dont le contenu est entièrement personnalisé. Les variables e-mail permettent de saisir les principales caractéristiques de l'e-mail.

Lorsque l'e-mail est envoyé, la session est fermée.



// Création du message
ContenuMessage est une chaîne
ContenuMessage = "Return-Path: <%1>"+ RC + ...
       "From: ""%2"" <%1>"+ RC +...
       "To: <%3>"+ RC +...
       "Subject: %4"+ RC +...
       "MIME-Version: 1.0"+ RC +...
       "Content-Type: text/plain;"+ RC +...
       " charset=""us-ascii"""+ RC +...
       "Content-Transfer-Encoding: 7bit"+ RC + RC +"%5"+ RC

//Ouverture d'une session SMTP
EmailOuvreSessionSMTP("SessionSMTP", "HL")
SI ErreurDétectée ALORS
   Erreur(ErreurInfo( errRésumé )
   RETOUR
FIN

//Remise a zéro des variables Email
EmailRAZ()

//Expéditeur du message
Email.Expéditeur = "expediteur@expediteur.fr"
Email.AdresseExpéditeur = "M. Expéditeur"

//Destinataire(s) du message
Email.NbDestinataire = 1
Email.Destinataire[1] = "destinataire@destinataire.fr"

//Sujet et contenu du message
Email.Sujet = "Sujet email"
Email.Message = "Corps de l'email"
SI fSauveTexte("ContenuEmail.txt", …
          ChaîneConstruit(ContenuMessage,Email.Expéditeur,Email.AdresseExpéditeur, ...
          Email.Destinataire[1],Email.Sujet,Email.Message)) = Faux  ALORS
   Erreur(ErreurInfo())
SINON
   EmailEnvoie("SessionSMTP","ContenuEmail.txt")
   SI ErreurDétectée ALORS
      Erreur(ErreurInfo())
   FIN
FIN

//Fermeture de la session SMTP
EmailFermeSession("SessionSMTP")
fSupprime("ContenuEmail.txt")