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 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
|