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 de sauvegarder sur le poste local le fichier attaché sélectionné dans une liste.



-- Initialisation de la liste LISTE_ATTACHE
I est un entier = 0
POUR I = 1 à Email.NbAttache
   ListeAjoute(LISTE_ATTACHE, Email.Attache[I])
FIN

-- Code de clic du bouton COPIER
// Copie du fichier attaché sélectionné

Select est un entier = ListeSelect(LISTE_ATTACHE)
SI Select <= 0 ALORS
   Info("Il faut sélectionner un fichier attaché")
SINON
   NomFichier est une chaîne
   NomFichier = fSélecteur("", "", "Sauvegarde du fichier attaché", ...
                          "*.*", "", fSelCrée )
   EmailSauveFichierAttaché (LISTE_ATTACHE(Select), NomFichier)
FIN


Le code suivant permet de sauvegarder sur le poste local (le serveur) le fichier attaché sélectionné dans une liste.



-- Initialisation de la liste LISTE_ATTACHE
I est un entier = 0
POUR I = 1 à Email.NbAttache
   ListeAjoute(LISTE_ATTACHE, Email.Attache[I])
FIN

-- Code de clic du bouton COPIER
// Copie du fichier attaché sélectionné

Select est un entier = ListeSelect(LISTE_ATTACHE)
SI Select <= 0 ALORS
   Info("Il faut sélectionner un fichier attaché")
SINON
   NomFichier est une chaîne
   NomFichier = fRepEnCours() + "\Emails\"
 
  EmailSauveFichierAttaché (LISTE_ATTACHE(Select), NomFichier)
FIN