Auteur: Patrick BikerExemples é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 SMTP. Les caractéristiques du protocole POP3/SMTP ont été précisées grâce à la fonction EmailOuvreSession (adresse du serveur POP3, adresse du serveur SMTP, etc.). Lorsque l'e-mail est envoyé, la session est fermée.
|
||
|
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 du mail Email.Expediteur = "<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 le mail SI EmailEnvoieMessage(NomUser) = Faux ALORS Erreur(EmailMsgErreur(Email.Erreur)) FIN ... EmailFermeSession (NomUser)
|
||
Le code suivant utilise MS Exchange 4 pour envoyer un e-mail. Un profile "PROFILE_Exemple" a été créé sous MS Exchange 4. Pour plus de détails sur la création des profiles, consultez la fonction EmailOuvreSession. Lorsque l'e-mail est envoyé, la session est fermée.
|
||
|
IdEmail est un entier
IdEmail = EmailOuvreSession("PROFILE_Exemple") // Initialisation des variables Email.NbDestinataire = 1 Email.Destinataire[1] = "pcsoft@pcsoft.fr" Email.NbAttache = 0 Email.Message = "" // Envoie du message à MS Exchange EmailEnvoieMessage(IdEmail) ... EmailMiseAJour(IdEmail) ... EmailFermeSession (IdEmail)
|
||
Le code suivant utilise Pocket Outlook pour envoyer un e-mail. Un compte "Compte_Exemple" a été créé sous Pocket Outlook. Pour plus de détails sur la création des comptes, consultez Gérez les e-mails grâce à CEMAPI : Autres comptes. Lorsque l'e-mail est envoyé, la session est fermée.
|
||
|
IdEmail est un entier
IdEmail = EmailOuvreSession("Compte_Exemple") // Initialisation des variables Email.NbDestinataire = 1 Email.Destinataire[1] = "pcsoft@pcsoft.fr" Email.NbAttache = 0 Email.Message = "" // Envoie du message EmailEnvoieMessage(IdEmail) ... EmailFermeSession (IdEmail)
|
