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 en utilisant le protocole POP3. Les caractéristiques du protocole POP3 ont été précisées grâce à la fonction EmailOuvreSession (adresse du serveur POP3, adresse du serveur SMTP, etc.). En cas d'erreur, le message complet de l'erreur est affiché. Lorsque l'e-mail est envoyé, la session est fermée.
|
||
// Ouverture de la session d'e-mail
SI EmailOuvreSession(USER, PASSWORD, "pop3.ifrance.fr", ... "smtp.ifrance.fr") = Vrai ALORS NomUser = USER SINON NomUser = "" Erreur("Impossible d'établir la connexion") FIN // Initialise les composantes de l'e-mail Email.Expéditeur = "<user@pcsoft.fr>" // L'expéditeur Email.Destinataire[1] = DESTINATAIRE // Le destinataire Email.NbDestinataire = 1 // Le nombre de destinataires Email.Sujet = SUJET // Le sujet Email.Message = TEXTE // Le corps du message Email.NbAttache = 0 // Le nombre de pièces attachées // Envoie de l'e-mail SI EmailEnvoieMessage(NomUser) = Faux ALORS Erreur( EmailMsgErreur (Email.Erreur)) FIN ... EmailFermeSession(NomUser)
|