Discussion :

[wd_newbie]

Salut à tous,

Je me prends la tête avec le (nouveau pour moi) champ HTML.

J'utilise le champs pour envoyer des e-mails avec des images intégrées, pas de ce soucis de ce côté.

Pour les conserver pour archivage, je les enregistre dans une table de ma BD : expéditeur / sujet / html / etc. et j'enregistre les pièces jointes (images et fichiers joints) dans un répertoire.

Je mets le nom du fichier à partir de pcJointe..Identifiant car visiblement dans le html du message on <img src = pcJointe..Identifiant >

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
33
34
35
36
 
...
HEnregistre(Emails)
 
 
nIDMail = Emails.MAIL_ID // ID de l'email sauvé 
 
//-- traiter les pces jointes 
nNbreAttache est un entier  =TableauOccurrence(emMail.Attache) 
 
SI nNbreAttache = 0 ALORS RETOUR // pas de PJointe 
 
// -- on nenregistre les pces jointes 
sNomFichier est une chaîne ANSI
 
nMAILS_ID					est un entier sur 8 octets	= Emails.MAIL_ID	// on recupere le ID du mail 
 
POUR TOUT pcJointe DE emMail.Attache
 
	sNomFichier		=   gsAppCheminGlobal + ["\"] + "Emails_attachements" + ["\"]  +pcJointe..Identifiant
 
	SI PAS EmailSauveFichierAttaché(pcJointe,sNomFichier) ALORS 
		Erreur(ErreurInfo())
	SINON 
 
		// -- ajouter la référence au fichier joint dans la tables des PJ --
		HRAZ(Emails_Pieces_Jointes)
		Emails_Pieces_Jointes.MAIL_PJ_Email		= nIDMail
		Emails_Pieces_Jointes.MAILPJ_NomFichier	= nMAILS_ID + "_" + pcJointe.Nom 
 
		SI PAS HAjoute(Emails_Pieces_Jointes) ALORS 
			Erreur(HErreurInfo() + RC + "Impossible d'enregistrer le fichier " + nMAILS_ID + "_" + pcJointe.Nom  + " dans la base de données !")
		FIN				
 
	FIN
FIN

Jusque là tout fonctionne bien, j'ai mes enregistrements et mes fichiers

Par contre pour les recharger, j'arrive bien à reprendre le contenu des e-mails, mais les images ne sont pas affichées.

J'ai parcouru la doc et divers posts, le truc qui revient sans cesse c'est que les images devraient être dans le répertoire de travail du champ HTML :

La propriété RépertoireDeTravail permet de :

connaître ou modifier le répertoire utilisé par le champ Editeur HTML pour stocker les images et feuilles CSS d'une page HTML.

JE me dis super, il me suffit de lui dire ou se trouvent les images en modifiant le répertoire utilisé, mais quand j'essaie de faire un affectation à la propriété :



Je ne sais pas si c'est juste , j'utilise le champs éditeur pour l'envoi ds e-mail et celui d'affichage pour les afficher après-coup


Vous avez également ce genre de soucis ?

[Voroltinquo]

Bonjour,
RépertoireDeTravail est une propriété qui concerne un champ Éditeur HTML et non un champ HTML. Je cite :

La propriété RépertoireDeTravail permet de :
connaître ou modifier le répertoire utilisé par le champ Éditeur HTML pour stocker les images et feuilles CSS d'une page HTML.

[wd_newbie]

Oui, effectivement je n'avais pas pris garde à la subtilité ....

Je ne comprends pas trop comment reconstituer un email avec les images, reconstituer l'e-mail dans une structure et EmailImporteHTML ... mais comment lister les images contenues dans le HTML.

Je tourne un peu en rond ...

[juju26]

Bonjour,
Pourquoi ne pas tout enregistrer avec EmailConstruitSource() et EmailImporteSource() au lieu de séparer le corps et des pj ?

[frenchsting]

Oui, effectivement je n'avais pas pris garde à la subtilité ....

Je ne comprends pas trop comment reconstituer un email avec les images, reconstituer l'e-mail dans une structure et EmailImporteHTML ... mais comment lister les images contenues dans le HTML.

Je tourne un peu en rond ...

Hello wd_newbie,

Pour trouver les images, ce n'est pas trop compliqué, il faut rechercher les balises <IMG et regarder du côté de l'attribut SRC.

Après, avec les infos données par tout le monde, tu devrais t'en sortir, non ?

[popoy]

C'est assez compliqué de voir une image dans un mail avec windev
Voir la solution sur cette page
https://forum.pcsoft.fr/fr-FR/pcsoft...-mail/read.awp
Conseil : A garder précieusement

[wd_newbie]

Alors je me suis pris un peu la tête avec ces sauvegardes des emails, et il semble que, ce soit plus simple que prévu.

Je suis parti sur la proposition de juju26

Si cela peut servir :


1 - pour sauvegarder un email avec HTML et pièces jointes

On enregistre le message avec la fonction EmailConstruitSource, qui inclu les images et les pièces jointes.
Ici j'enregistre le message et pces jointe dans une champ de la table "Emails", mais on pourrait enregistrer dans un fichier texte

Code :

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

1
2
3
4
5
6
 
 
	// sauver le contenu avec pJ
	SI EmailConstruitSource(emMail) = Vrai ALORS
		Emails.MAIL_Source		=  emMail.Source  // emMail une variable de type email
	FIN

2 - pour afficher un email dans un champ HTML d'affichage

Récupération depuis la table "Emails" ou alors un fChargeTexte().
Une fois la structure ou variable email renseignée, on récupère le HTML, les pièces et images jointes dans le tableua Attache[], et avec HTMLDepuisEmail() on affiche le tout dans le champ

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
 
 
... 
SI PAS HLitRecherchePremier(Emails,MAIL_ID,nMAIL_ID) ALORS 
	Erreur(HErreurInfo() + RC + "Impossible de charger l'e-mail !") 
FIN
 
 
emMail est un Email 
EmailParamètre(emailParamètreHTML, Vrai)
 
emMail.Source = Emails.MAIL_Source
 
SI  EmailImporteSource(emMail) = Faux ALORS
	Erreur(ErreurInfo())
FIN
 
HTMLDepuisEmail(HTM_Visualisation, emMail)

J'espère ne pas avoir dit trop de bêtise

[frenchsting]

J'espère ne pas avoir dit trop de bêtise

Si ça fonctionne chez toi en dév ET en prod, alors c'est que c'est la solution.