Bonjour

Je rencontre un problème assez gênant depuis le passage à WM22 (avant avec la WM21 pas de soucis).
Je retrouve bien plusieurs destinataires dans l'application de messagerie mais un seul fichier (voire 0) alors que dans le répertoire il y a bien des fichiers .zip.

Auriez-vous une idée pour résoudre ce dysfonctionnement ?

Quelles sont mes erreurs ?

Merci d'avance de votre aide



Mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
sNomRep       est une chaîne
j=0
// remplit la liste avec les fichiers contenu dans le répertoire DAO
sNomRep = fRep(ResRepEnCours+"*.zip", frFichier)
Trace(ResRepEnCours+"" + sNomRep)
TANTQUE sNomRep <> "" ET sNomRep <> EOT
	Email.Attache[j+1]= ResRepEnCours+""  + sNomRep
	sNomRep = fRep("", frFichier)
	Trace(sNomRep)
	j=j+1
FIN	
	Email.NbAttache = j
	Email.Sujet = "Retour des constats du : "+DateDuJour()
	Email.Message = "Veuillez trouver les comptes rendus de visites du : "+DateDuJour()
	// Destinataires
j=0
POUR i=1 A ZR_destinatairemail..Occurrence
	SI ZR_destinatairemail[j+1].ATT_select ALORS
		Email.Destinataire[j+1] = ZR_destinatairemail[j+1].ATT_mail
		j = j+1	
	FIN
FIN
Email.NbDestinataire = j
EmailLanceAppli()