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.
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")
|