[WD14E] image html mail

Bonjour. je dois créer sous windev un envoie de mail dans le quel se trouve un corp une image e une signature.

donc mon champ corp et signature est un champ de saisie RTF.
Puis je mets le corp l'image puis la signature dans le champ HTML

Code:

1
2
3
4
 
 
HTML1=  "<HTML>" +RTFVersHTML(C_Message)+ "</HTML>"  + "<BODY><IMG src=" + Caract(34) +"file:///"+F_CheminImage+ Caract(34)+"></BODY>" + ...
			 "<HTML>" +RTFVersHTML(C_Signature)+ "</HTML>"

après je veux mettre dans mon mail le champ HLMT dans mon mail. et la je n'arrive pas a inserer l'image.

Voici le code

Code:

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
L_CID est une chaîne 
L_NomSimple est une chaîne = fExtraitChemin(F_CheminImage,fFichier + fExtension )
Repert_Temp est une chaîne = "C:\Temp\"
L_Pos est entier=0
L_PosDebut, L_PosFin sont entier
L_SousChaine est chaîne
L_SeparateurRemplace est une chaîne
 
// Remise a zéro des variables Email
EmailRAZ()
 
toto est un entier=EmailOuvreSessionOutlook("") 
// Expéditeur du message
Email.Expéditeur = "loic.le-verge@inextenso.fr"
 
// Destinataire(s) du message
Email.Destinataire[1] = "yvon.menez@inextenso.fr"
Email.NbDestinataire = 1
 
Email.AccuséRéception = C_Accuse[1]
Email.ConfirmationLecture = C_Accuse[2]
 
// Sujet et contenu du message
Email.Sujet = C_Sujet
Email.Message =""
Email.HTML= HTML1..ValeurAffichée
 
 
Email.NbAttache ++
Email.Attache[Email.NbAttache] = F_CheminImage 
 
// Récupérer l'identifiant du fichier attaché dans le mail
L_CID="cid:WDCID" + Email.NbAttache 
 
L_Pos =Position(Email.HTML, L_NomSimple, L_Pos) 
SI L_Pos<> 0 ALORS
	L_PosFin = L_Pos + Taille(L_NomSimple)
	// Rechercher la position du début de la référence
	// Rechercher le délimiteur " 
	L_Pos --
	L_SousChaine = Email.HTML[[L_Pos]]
	TANTQUE L_Pos > 1 ET L_SousChaine <> L_SeparateurRemplace
		L_Pos --
		L_SousChaine = Email.HTML[[L_Pos]]
	FIN
	L_PosDebut = L_Pos + 1 
	// Remplacer 
	L_SousChaine = Milieu(Email.HTML, L_PosDebut, L_PosFin-L_PosDebut)
	Email.HTML = Remplace(Email.HTML, L_SousChaine, L_CID, MotComplet)
FIN
 
 
 
 
// Remplacer les références au fichier attaché par le nom réel du fichier
 
//Email.HTML =Remplace(Email.HTML, "file:" + f_CheminImage, L_CID)
// Sujet et contenu du message
EmailEnvoieMessage(toto)

et dans le mail recu, il y a le corp, l'image c'est une croix rouge, il ne la trouve pas. et il y a la signature.

quelqu'un peux m'aider que l'image pointe sur la pièce jointe.

merci