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
après je veux mettre dans mon mail le champ HLMT dans mon mail. et la je n'arrive pas a inserer l'image.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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>"
Voici le code
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.
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
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)
quelqu'un peux m'aider que l'image pointe sur la pièce jointe.
merci
Partager