Email Html avec variables

Voici un bon moment que je cherche comment résoudre un envoi mail en html.
J'ai créé mon doc en *.htm et je souhaite modifier des variables qui s'y trouvent en fonction d'une fenêtre.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

NomFichierClient est une chaîne = "MailSituationClient.htm" iAperçu(iHTML,NomFichierClient) iImprimeEtat(ETAT_Clients_Lic) //Sujet et contenu du message Email.Sujet = "Echéance " Email.Message = "Mon texte de rechange" MonTexteHTML est une chaîne MonTexteHTML = fChargeTexte("C:\Mes Projets\Licences\MailSituationClient.htm") Email.HTML = Remplace(Email.HTML,"[%SAI_Date%]",DateVersChaîne(SAI_Date2)) EmailImporteHTML(MonTexteHTML,"C:\Mes Projets\Licences")

---

J'ai supprimé les lignes contenant les infos de destinataire etc...
Que peut-il bien se passer pour que cela ne soit pas pris en compte.
J'ai pu envoyer une fois avec la prise en compte de la date et depuis plus possible sans avoir modifié le code ni la fenêtre.
Merci pour votre aide

Bonjour,

as-tu essayé avec le chemin complet dans la chaine de fichier ?

Code:

---

1 2 3 4 5 6 7 8 9 10

NomFichierClient est une chaîne = "C:\Mes Projets\Licences\MailSituationClient.htm" iAperçu(iHTML,NomFichierClient) iImprimeEtat(ETAT_Clients_Lic) //Sujet et contenu du message Email.Sujet = "Echéance " Email.Message = "Mon texte de rechange" MonTexteHTML est une chaîne MonTexteHTML = fChargeTexte(NomFichierClient) Email.HTML = Remplace(Email.HTML,"[%SAI_Date%]",DateVersChaîne(SAI_Date2)) EmailImporteHTML(MonTexteHTML,"C:\Mes Projets\Licences")

---

Nicolas

J'ai aussi essayé en remplaçant cette chaine

Code:

---

1 2	MonTexteHTML = fChargeTexte(NomFichierClient)

---

par la chaine

Code:

---

1 2	MonTexteHTML = fChargeTexte("C:\Mes Projets\Licences\MailSituationClient.htm")

---

Mais le succès n'a pas été au rende-vous...!

Bonjour,

N'y aurait-il pas une toute petite erreur ici

Code:

---

1 2 3 4 5 6 7 8 9 10

NomFichierClient est une chaîne = "MailSituationClient.htm" iAperçu(iHTML,NomFichierClient) iImprimeEtat(ETAT_Clients_Lic) //Sujet et contenu du message Email.Sujet = "Echéance " Email.Message = "Mon texte de rechange" MonTexteHTML est une chaîne MonTexteHTML = fChargeTexte("C:\Mes Projets\Licences\MailSituationClient.htm") MonTexteHTML = Remplace(MonTexteHTML,"[%SAI_Date%]",DateVersChaîne(SAI_Date2)) EmailImporteHTML(MonTexteHTML,"C:\Mes Projets\Licences")

---

Je le ferais comme ça, par contre je n'ai rien testé

Pas plus non plus mais c'est vrai qu'on peut remplacer puisqu'on la nommer.

Vas voir ce message :


http://www.developpez.net/forums/d1019950/environnements-developpement/windev/envoie-message-format-html/

Il avait une problématique assez similaire à la tienne ...

Je pense que dans les variables du mail, il doit y avoir des choses qui ne vont pas (par exemple Email.HTML n'est pas alimenté dans ton code mais message oui donc il envoie message). De toute façon, il faut que tu isoles les composantes indispensables pour faire un mail au format HTML.

Après de multiples essais en tous genre, une lumière m'est venue...
Lorsque je compose mon texte html comme suit :
Cher client, [%SAI_Date%] (ceci étant la date du jour)
Il ne prend pas ma variable qui pourtant est bien affichée en "info".
Par contre si je place mon texte comme suit :
Cher client,
Votre échéance vient à expiration le [%SAI_Date%] ...etc (reste du texte)
Dans ce cas c'est correct !
Si vous avez idée je prends sinon je recompose mon texte autrement...
A malin, malin et demi!
Merci de votre aide tout de même.
Puis-je mettre résolu ? On verra.

Bonjour,
Après de longues recherches et le temps de la réflexion, je dois revenir vers des connaisseurs.
Je peux dans mon HTML modifié certaines variables par des champs de la fenêtre initiale mais je souhaite aussi ajouter le contenu d'un champ table de manière présentable. Et là c'est la galère.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Email.Sujet = "Téléchargement de la licence" Email.Message = "Cher utilisateur,"+ RC + " " + RC + "Votre fichier licence mis à jour est disponible dès à présent sur le site de téléchargement." + RC + " " + RC +... "Vous pouvez y accéder directement en introduisant directement l'adresse suivante dans votre navigateur internet :" + RC + " " + RC + ... FEN_FenetreMail.SAI_LienLicence + RC + " " + RC +... Email.HTML = "" MonTexteHTML est une chaîne MonTexteHTML = fChargeTexte("C:\CYC\Licences\MailNumLicenceClient.htm") MonTexteHTML = Remplace(MonTexteHTML,"Tableau",SAI_Texte_RTF) MonTexteHTML = Remplace(MonTexteHTML,"Lien",SAI_LienLicence) MonTexteHTML = Remplace(MonTexteHTML,"Lienbis",SAI_Texte_RTF) EmailImporteHTML(MonTexteHTML,"C:\CYC\Licences")

---

Tout marche comme je le souhaite sauf ce tableau qui en fait est une table.
A mon avis la syntaxe n'est pas correcte. J'ai essayé de remplacer tableau par table_nomDeLaTable, par une liste, par un champ RTF mais rien ne s'affiche ou rien de cohérent ni présentable.

Comment puis-je donc m'y prendre?

Merci de vos lumières.