Utilisation de "remplace" mais ne remplace pas tout

**Obturatix** · 17/07/2021, 21h31

Bonjour à la communauté et déjà merci pour votre aide.
Toujours des petites choses mais qui font perdent beaucoup de temps.
Voilà mon problème.
pour envoyer des mails j'utilise pour le message un champ HTML.
C'est une lettre d'informations et je veux mettre des données individuelles à la place des variables
Tout est ok sauf le remplacement des données, il y a seulement une qui est remplacée
Dans une autre appli cela fonctionne mais pas là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
message_mel3=Remplace(message_mel3,"[Prenom]",TABLE_Selection.COL_Prénom[indice])
message_mel3=Remplace(message_mel3,"[Nom]",TABLE_Selection.COL_Nom[indice])
message_mel3=Remplace(message_mel3,"[Courriel]",TABLE_Selection.COL_Courriel[indice])			
message_mel3=Remplace(message_mel3,"[CleAuthentification]",TABLE_Selection.COL_CléAuthentification[indice])

J'ai supprimé les accents des variables au cas où....
Le champs HTML est bien ré initialisé avant chaque destinataire.

Voici le texte :
Vous avez reçu cette newsletter de l'****** au nom de [Prenom] [Nom] à l'adresse [Courriel]
en tant que....

Le nom est bien remplacé à chaque destinataire mais pas le prénom ni les autres variables, les données existent bien et sont visibles dans la table:

Vous avez reçu cette newsletter de l'******** au nom de [Prenom] TEST2 à l'adresse du [Courriel]
en tant que

j'ai une deuxième variable courriel dans le texte et elle n'est pas non plus remplacée , ni la clé d'authentification.
Il n'y a pas de faute dans les variables.
Les mail partent bien et sont bien reçus.
Je ne vois pas d'où cela provient.
Une idée ?
Cordialement
Obturatix

**Voroltinquo** · 18/07/2021, 06h44

Bonjour,
Il faudrait que tu fasses un Pas à pas.
J'ai testé

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
25
26
27
28
29
30
31
32
 
saModeleMsg est une chaîne
saModeleConstruit est chaîne
saMsgBrut est chaîne
nLigneTable est un entier
 
 
saModeleMsg="Vous avez reçu cette newsletter de l'****** au nom de [Prenom] [Nom] à l'adresse [Courriel] en tant que"
saModeleConstruit="Vous avez reçu cette newsletter de l'****** au nom de %1 %2 à l'adresse %3 en tant que"
 
POUR TOUTE LIGNE DE TABLE_Dest
	saMsgBrut=Remplace(saModeleMsg,"[Prenom]",TABLE_Dest.COL_Prénom)
	saMsgBrut=Remplace(saMsgBrut,"[Nom]",TABLE_Dest.COL_Nom)
	saMsgBrut=Remplace(saMsgBrut,"[Courriel]",TABLE_Dest.COL_Courriel)
FIN
 
POUR TOUTE LIGNE nLigneTable DE TABLE_Dest
	saMsgBrut=Remplace(saModeleMsg,"[Prenom]",TABLE_Dest.COL_Prénom)
	saMsgBrut=Remplace(saMsgBrut,"[Nom]",TABLE_Dest.COL_Nom)
	saMsgBrut=Remplace(saMsgBrut,"[Courriel]",TABLE_Dest.COL_Courriel)
FIN
 
POUR TOUTE LIGNE nLigneTable DE TABLE_Dest
	saMsgBrut=Remplace(saModeleMsg,"[Prenom]",TABLE_Dest[nLigneTable].COL_Prénom)
	saMsgBrut=Remplace(saMsgBrut,"[Nom]",TABLE_Dest[nLigneTable].COL_Nom)
	saMsgBrut=Remplace(saMsgBrut,"[Courriel]",TABLE_Dest[nLigneTable].COL_Courriel)
FIN
 
POUR TOUTE LIGNE DE TABLE_Dest
	saMsgBrut=ChaîneConstruit(saModeleConstruit,TABLE_Dest.COL_Prénom,TABLE_Dest.COL_Nom,TABLE_Dest.COL_Courriel)
FIN
// et ses déclinaisons

A chaque fois j'ai le résultat souhaité