PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 2024 → Editeur HTML (E-mails) avec images
Editeur HTML (E-mails) avec images
Débuté par Thierry, 11 avr. 2024 18:23 - 4 réponses
#1
Membre enregistré
43 messages
Popularité : +5 (5 votes)
Posté le 11 avril 2024 - 18:23
Bonjour, j'ai voulu créer une fenêtre permettant la saisie d'un e-mail. J'ai donc utilisé le champ Editeur HTML pour l'envoi d'E-mails.

en utilisant la fonction :
MonMessage est un Email
EDHTML_CORPS.VersEmail(MonMessage)


Cela fonctionne bien, c'est-à-dire que les images du corps du message sont mises en référence dans les "attache" de la variable de type Email, sauf si l'utilisateur déplace une image déjà présente dans le corps du message par DND.

Pour résoudre ce problème, voici le code que j'ai ajouté :
MonMessage est un Email
EDHTML_CORPS.VersEmail(MonMessage)

TANTQUE RemplacerImage()
Multitâche(-1)
FIN

PROCEDURE INTERNE RemplacerImage():booléen
sImage est une chaîne
sCheminImage est une chaîne
imgAttache est un emailAttache
sCID est une chaîne
bRetour est un booléen
sImage = ExtraitChaîneEntre(MonMessage.HTML,1,"<img src=""http://localdocument//","""")
SI sImage <> EOT ALORS
bRetour = Vrai
sCheminImage = ComplèteRep(EDHTML_CORPS.RépertoireDeTravail)+URLDecode(sImage,encodeURLVersAnsi)
sCID = "wdcid"+DonneGUID(guidBrut)
SI fFichierExiste(sCheminImage) ALORS
imgAttache.Nom = sCheminImage
imgAttache.Contenu = fChargeBuffer(sCheminImage)
imgAttache.ContentType = fContentType(sCheminImage)
imgAttache.Identifiant = sCID
Ajoute(MonMessage.Attache, imgAttache)
FIN
FIN
MonMessage.HTML = Remplace(MonMessage.HTML,"http://localdocument//"+sImage,"cid:"+sCID)
RENVOYER bRetour
FIN


En espérant que cela puisse servir à d'autres.
#2
Membre enregistré
3 354 messages
Popularité : +93 (137 votes)
Posté le 11 avril 2024 - 21:46
Sur le même sujet
https://forum.pcsoft.fr/fr-FR/pcsoft.fr.windev.old/29803-image-dans-corps-mail/read.awp
Message modifié, 11 avril 2024 - 21:48
#3
Posté le 12 avril 2024 - 07:08
comment afficher la date du jour sur Windev 28 ouverture de fenêtre ce code ne fonction pas
datesystème est une Date
datesystème = DateVersChaîne(DateDuJour())
dateaffichée}:(= datesystème
#4
Membre enregistré
43 messages
Popularité : +5 (5 votes)
Posté le 12 avril 2024 - 10:48
Bonjour je tiens à préciser que ce code permet de pallier à un bug qui est :

Si l'utilisateur déplace une image contenue dans le champ éditeur HTML, lors de l'appel de la fonction
EDHTML_CORPS.VersEmail(MonMessage)
, cette image déplacée par l'utilisateur ne s'enregistre pas dans la variable de type Email.
#5
Membre enregistré
1 939 messages
Popularité : +53 (65 votes)
Posté le 12 avril 2024 - 11:02
DAOUD DAOUD a écrit :
comment afficher la date du jour sur Windev 28 ouverture de fenêtre ce code ne fonction pas
datesystème est une Date
datesystème = DateVersChaîne(DateDuJour())
dateaffichée}= datesystème


Vous mettez un type chaîne DateVersChaîne() dans un type date !

--
Bon dev,
Jean-Pierre
→ Revenir à WINDEV 2024