PC SOFT

FOROS PROFESIONALES
WINDEV, WEBDEV y WINDEV Mobile

Inicio | Mensajes recientes | Conéctese... |  | Español FR
Inicio → WINDEV 2024 → Editeur HTML (E-mails) avec images
Editeur HTML (E-mails) avec images
Iniciado por Thierry, 11,abr. 2024 18:23 - 4 respuestas
#1
Miembro registrado
43 mensajes
Popularité : +5 (5 votes)
Publicado el 11,abril 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
Miembro registrado
3.351 mensajes
Popularité : +93 (137 votes)
Publicado el 11,abril 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
Mensaje modificado, 11,abril 2024 - 21:48
#3
Publicado el 12,abril 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
Miembro registrado
43 mensajes
Popularité : +5 (5 votes)
Publicado el 12,abril 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
Miembro registrado
1.939 mensajes
Popularité : +53 (65 votes)
Publicado el 12,abril 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
→ Volver a WINDEV 2024