Discussion :

[LuckyLuke56]

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 :

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

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

[Nicolas_Jeanneau]

Bonjour,

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

Code :

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

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

[LuckyLuke56]

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

Code :

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

1
2
 
MonTexteHTML = fChargeTexte(NomFichierClient)

par la chaine

Code :

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

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

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

[madsland]

Bonjour,

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

Code :

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

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é

[LuckyLuke56]

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

[Nicolas_Jeanneau]

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.

[LuckyLuke56]

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.

[LuckyLuke56]

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 :

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

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.