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 et de recevoir un e-mail en utilisant le protocole POP3. Les caractéristiques du protocole POP3 sont 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.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 du mail SI EmailEnvoieMessage(NomUser) = Faux ALORS Erreur(EmailMsgErreur(Email.Erreur)) FIN ... EmailFermeSession(NomUser)
|
||
Le code suivant permet de démarrer une session d'e-mails avec MS Exchange. Dans ce cas, l'utilisateur choisit le profil voulu dans une fenêtre de sélection.
|
||
|
IdEmail est un entier
IdEmail = EmailOuvreSession ("") ... EmailFermeSession(IdEmail)
|
||
Le code suivant permet de démarrer une session d'e-mails avec Pocket Outlook.
|
||
|
IdEmail est un entier
IdEmail = EmailOuvreSession ("Compte-Exemple") ... EmailFermeSession(IdEmail)
|
||
Le code suivant utilise MS Exchange 4 pour envoyer un e-mail. Un profile "PROFILE_Exemple" a été créé sous MS Exchange 4. 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. 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)
|
