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 en utilisant le protocole SMTP. Les caractéristiques du protocole SMTP ont été précisées grâce à la fonction EmailOuvreSession (adresse du serveur POP3, adresse du serveur SMTP, etc.).



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


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.



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 la Gérez les e-mails grâce à CEMAPI : Autres comptes.



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)