Enr. Word en HTML pour envoi mail : lien image Rompus

Bonjour,

J'ai créé un fichier VBA qui envoie mes mails automatiquement en personnalisant un document Word selon le destinateur (via les signets de Word).

Ce document word est ensuite enregistré au format HTML pour conserver ma mise en page (Avec mes images).

Lors de l'enregistrement du fichier Word en HTML, les images du document word sont automatiquement enregistrées dans un dossier Secret_HTML.

Quand j'ouvre mon fichier HTML via IE, les images s'affichent correctement mais lorsque j'incorpore le code source HTML dans outlook, j'ai bien tout mon message personnalisé mais les liens sont rompus et donc je n'ai plus d'images affichées.

Voila le bout de code

' Sauvegarder le document de Publipostage en html et fermeture
'ces lignes permettent de récupérer le code source d'une page web
'comme le fichier publiposté est enregistré en ".htm" je récupère son code source avec les balises html
'qui vont se stocker dans la variable "Corps_du_message"

    Dim IE As Object
    Dim maPageHtml As Object

    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = False

    IE.navigate (NDF2)                            'Ouverture de mon document HTML qui a été généré depuis Modèle Word
       Do Until IE.readyState = 4
          DoEvents
       Loop

    Set maPageHtml = IE.document
    Corps_du_message = maPageHtml.DocumentElement.innerHTML
    IE.Quit

  'création des mails
  Set oApp = CreateObject("outlook.application")
  Set OMail = oApp.CreateItem(olMailItem)

  If Chemin_PJ <> "" Then
  OMail.Attachments.Add Chemin_PJ
  End If
  If Chemin_PJ2 <> "" Then
  OMail.Attachments.Add Chemin_PJ2
  End If
  If Chemin_PJ3 <> "" Then
  OMail.Attachments.Add Chemin_PJ3
  End If
  '----------------------------------
  'en mettant la source dans un HTMLBody, Outlook va comprendre le html et le mail que recevront les destinataires,
  'sera à l'identique du fichier Word publiposté

  OMail.To = Destinataire
  OMail.CC = Destinataires_Copie
  OMail.Subject = Objet_du_message
  OMail.HTMLBody = Corps_du_message
  OMail.Display
 'OMail.Send

Si quelqu'un peut me débloquer, je lui serai grandement reconnaissant !

Bonjour,

Et non !! passer par word n'est pas pour moi la solution dans ce cas de figure.

2 ou 3 solutions :

  • soit tu fais une copie de ta page word ou html et tu la colles dans le texte (je n'ai jamais essayé)
  • soit tu restes dans excel, tu fais une bonne mise en page dans excel avec l'avantage de pouvoir y inclure facilement des paramètres via les formules et ensuite :
  • - tu fais un fichier attaché pdf
  • - ou (c'est la solution que je préconiserais) tu fais un copier/coller de cet onglet excel dans le corps du mail = testé sans problème.

Pour coller dans le mail, j'emploie sendkeys pour garder la mise ne page (en réalité on doit pouvoir directement écrire directement dans le htmlbody mais la mise en page est aléatoire et faite à la main de balises html.


je pense aussi que même si on modifiait les liens dans maPageHtml.DocumentElement.innerHTML pour pointer les images en absolu vers le bon dossier, ce n'est pas sûr que le destinataire les recevraient !

Bonjour,

Merci de ta réponse rapide !

Aurais-tu un exemple de programme de la troisième solution pour envoyer le contenu d'une seule feuille via PDF !

Petit précision, j'utilise les signets sur word pour faire un mail personnalisé. Si je met une partie de mon corps de texte dans une cellule comme pourrais-je mettre à jour le nom et les informations sur le destinataire du mail ?

Merci encore de ton aide

lexxor a écrit :

Aurais-tu un exemple de programme de la troisième solution pour envoyer le contenu d'une seule feuille via PDF !

lexxor a écrit :

Petit précision, j'utilise les signets sur word pour faire un mail personnalisé. Si je met une partie de mon corps de texte dans une cellule comme pourrais-je mettre à jour le nom et les informations sur le destinataire du mail ?

J'imaginais ceci dans une cellule

="Bonjour Monsieur " & Feuil1!A1 & " " & Feuil1!B1
23signet.xlsx (8.75 Ko)

En complément, si le fichier pdf était issu du fichier word, alors le code macro est plus simple

Option Explicit
Sub envoi()

Dim messagerie As Object
Dim email As Object

    Set messagerie = CreateObject("Outlook.Application")
    Set email = messagerie.CreateItem(0)
    With email
        .to = [destinataire]
        .Subject = [titre]
        .body = "Veuillez trouver en pièce jointe ..."
        .Attachments.Add "C:\documents\mon_fichier.pdf" ' à personnaliser
        .display ' ou .send
    End With
    Set email = Nothing
    Set messagerie = Nothing

End Sub

Merci Steelson,

Je te remercie de ton coup de main mais si j'ai bien compris tes solutions ne répondent pas à mes besoins.

Je précise :

  • J'utilise word pour créer mon corps de mail personnalisé grâce aux signets. Faisable aussi avec des formules dans excel cependant je ne serai pas l'utilisateur final de mon outil donc s'ils souhaitent un jour/demain modifier le corps de mail pas vraiment pratique par rapport au document word.
  • J'utilise l'enregistrement du document word au format HTML pour conserver la mise en forme. Cependant, en utilisant les cellules excel comme tu l'as préconisé, impossible de faire des différences de typographie : Gras/Italique/couleur...

Si quelqu'un à la bonne solution ou un autre idée, j'en serai grandement reconnaissant.

Quelqu'un semble avoir trouvé la bonne solution mais je n'arrive pas à l'appliquer/comprendre.

https://social.msdn.microsoft.com/Forums/vstudio/fr-FR/051be176-8df4-4d73-94cd-9f535b82a9ed/outlook-mail-html-avec-image-dans-le-corps-du-texte?forum=vbafr

Je vous remercie.

lexxor a écrit :

- J'utilise l'enregistrement du document word au format HTML pour conserver la mise en forme. Cependant, en utilisant les cellules excel comme tu l'as préconisé, impossible de faire des différences de typographie : Gras/Italique/couleur...

J'avais complété ma réponse justement pour permettre un enregistrement en pdf plutôt qu'en html.

Nota : ton, lien est en effet intéressant ; si on arrive à modifier les balises html issues du fichier word comme préconisé, cela répondra à ta préoccupation. Je reste sur la crainte que j'exprimais "je pense aussi que même si on modifiait les liens dans maPageHtml.DocumentElement.innerHTML pour pointer les images en absolu vers le bon dossier, ce n'est pas sûr que le destinataire les recevraient !", mais je vais me pencher sur la solution que tu mentionnes car cela résoudrait en effet pas mal de sujets !

1- les images sont en réalité chargées dans un répertoire caché d'outlook, et elles sont ensuite repérées parcid:. Il faut donc recopier les images générées lors de la sauvegarde du word dans ce répertoire et ensuite modifier les src des images du texte html pour point vers cid: ... je n'ai plus l'appli outlook actuellement pour tester

2- sinon, je préconiserai aussi d'essayer d'ouvrir le word original, faire par sendkeys Ctrl+A et Ctrl+C pour tout copier, aller dans le mail et faire par sendkeys Ctrv+V pour coller, tout ceci piloté par excel.

A défaut d'avoir outlook, je vais tester la seconde solution sur une autre application, toujours en partant d'excel et word.

Maintenant si qqun peut répondre à la mise en oeuvre de la méthode que tu souhaites ce sera parfait !

J'ai réussi à visualiser le code source du fichier html enregistré à partir du word personnalisé !

La même pour ce mail avec les liens restauré via Outlook !

Petit problème pour faire la comparaison des deux fichiers et modifier en conséquent les liens dans maPageHtml.DocumentElement.innerHTML !

Ducoup cest plus un problème excel ou word, As tu une solution pour comparer de fichier texte ? J'ai rien trouvé sur notepad !

Merci !

Si tu pouvais refaire la manip avec un fichier word simple lambda non confidentiel, je pense que je pourrais le faire soit en javascript, soit en VBA avec du traitement de texte (split) ou des getelementbyid pour cibler la comparaison sur les <img src="______">

Juste une question ... qui pourrait donner aussi une autre tournure, une autre solution :

quel est l'apport d'excel ?

parce qu'on peut très bien écrire du VBA sous outlook (cela fonctionne un peu différemment au niveau de l'enregistrement de la macro) pour aller chercher des infos, soit dans le fichier html, soit dans word (par copier/coller)

Pour moi Simplicité d'utilisation pour les end user ! Pour mon cas, Je développe ce fichier pour le service RH de mon entreprise ! Ils ont 3 mails à envoyer qu'ils personnalisent selon les destinataires et le type de mail (arrivé nouveau collaborateur, départ collaborateur, mail d'information a l'équipe pour préparer l'arrivée d'un nouveau collaborateur). J'utilise excel pour leur offrir la possibilité de tout paramètrer :

  • délais pour envoi de mail avant/après arrivé/depart nouveau collaborateur
  • objets et PJ des différents mails...
  • personnes à mettre en copie selon le mail

Juste un des mails possèdent des images importantes (coordonnées utiles, logo entreprise pour signature). Ce problème remet donc en cause la viabilité de mon programme pour un des 3 mails.

Je reconnais qu'il serait possible de faire la même chose via VBA Outlook mais à mon avis je pourrais leur offrir moins de flexibilité !

Je t'envoie les deux fichiers sources à comparer demain

Bonne soirée !

Bonsoir,

Pour quelles raisons utiliser Outlook pour l'envoie de mail par vba et non pas avec la bibli. CDO ?

Je la trouve très simple, je l'utilise dans des 'applis' depuis des années, sans aucun problèmes en retour... jusqu'à présent.

https://forum.excel-pratique.com/cours-astuces/envoi-mail-avec-cdo-sans-outlook-t38945.html

Si c'est pour garder une trace du mail envoyé, mettre son adresse en copie...

Si cela peut vous aider...

Bonjour Thihii,

Quelque soit la méthode, le sujet est d'envoyer des photos en respectant la mise en forme sous word. C'est cela qu'il faut résoudre.


Bonjour lexxor

Steelson a écrit :

2- sinon, je préconiserai aussi d'essayer d'ouvrir le word original, faire par sendkeys Ctrl+A et Ctrl+C pour tout copier, aller dans le mail et faire par sendkeys Ctrv+V pour coller, tout ceci piloté par excel.

Essaie ceci

37hello.docx (312.19 Ko)

Bonjour,

Très bien, je regarde cela ce soir.

bonne journée.

Bonjour a toi et merci encore pour ton soutient :

J'ai extrait les deux codes HTML du mail :

Celui avec les liens rompus :

<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"><head><meta http-equiv=Content-Type content="text/html; charset=iso-8859-1"><meta name=Generator content="Microsoft Word 14 (filtered medium)"><!--[if !mso]><style>v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style><![endif]--><style><!--
/* Font Definitions */
@font-face
    {font-family:"Cordia New";
    panose-1:2 11 3 4 2 2 2 2 2 4;}
@font-face
    {font-family:"Cordia New";
    panose-1:2 11 3 4 2 2 2 2 2 4;}
@font-face
    {font-family:Calibri;
    panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
    {font-family:Tahoma;
    panose-1:2 11 6 4 3 5 4 4 2 4;}
@font-face
    {font-family:"Century Gothic";
    panose-1:2 11 5 2 2 2 2 2 2 4;}
@font-face
    {font-family:Times;
    panose-1:2 2 6 3 5 4 5 2 3 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
    {margin-top:0cm;
    margin-right:0cm;
    margin-bottom:8.0pt;
    margin-left:0cm;
    line-height:106%;
    font-size:11.0pt;
    font-family:"Calibri","sans-serif";
    mso-fareast-language:EN-US;}
a:link, span.MsoHyperlink
    {mso-style-priority:99;
    color:blue;
    text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
    {mso-style-priority:99;
    color:purple;
    text-decoration:underline;}
p.MsoAcetate, li.MsoAcetate, div.MsoAcetate
    {mso-style-priority:99;
    mso-style-link:"Texte de bulles Car";
    margin:0cm;
    margin-bottom:.0001pt;
    font-size:8.0pt;
    font-family:"Tahoma","sans-serif";
    mso-fareast-language:EN-US;}
span.TextedebullesCar
    {mso-style-name:"Texte de bulles Car";
    mso-style-priority:99;
    mso-style-link:"Texte de bulles";
    font-family:"Tahoma","sans-serif";}
span.EmailStyle19
    {mso-style-type:personal-compose;}
.MsoChpDefault
    {mso-style-type:export-only;
    font-size:10.0pt;
    font-family:"Calibri","sans-serif";}
@page WordSection1
    {size:595.3pt 841.9pt;
    margin:70.85pt 70.85pt 70.85pt 70.85pt;}
div.WordSection1
    {page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1027" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]--></head><body lang=FR link=blue vlink=purple><div class=WordSection1><p class=MsoNormal>Hello Alexandre!<o:p></o:p></p><p class=MsoNormal><b><span style='font-size:12.0pt;line-height:106%;color:#1F497D'>Frederic LARD<o:p></o:p></span></b></p><p class=MsoNormal><b><span lang=EN-US style='font-size:10.0pt;line-height:106%;font-family:"Century Gothic","sans-serif";color:#003684'>Alexandre ROY</span></b><span lang=EN-US style='font-size:10.0pt;line-height:106%;font-family:"Century Gothic","sans-serif";color:#003684'> <o:p></o:p></span></p><p class=MsoNormal style='margin-bottom:12.0pt'><span lang=EN-US style='font-size:9.0pt;line-height:106%;font-family:"Century Gothic","sans-serif";color:#003684'>Apprenti Ingénieur en Assemblage<br>Business Group (if needed)<o:p></o:p></span></p><p class=MsoNormal style='margin-bottom:12.0pt'><span lang=EN-US style='font-size:9.0pt;line-height:106%;font-family:"Century Gothic","sans-serif"'>T + 00 (0) 00 00 00 00 &#8226; M +00 (0)0 00 00 00 00 <br>alexandre.roy@faurecia.com<br>Address on one line &#8211; City &#8211; Post Code &#8211; Country</span><span lang=EN-US style='font-size:9.0pt;line-height:106%;font-family:"Times","serif"'> <o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><o:p>&nbsp;</o:p></span></p><p class=MsoNormal>Bonjour le forum, voici comment faire une copie d&#8217;écran avec Surface&nbsp;:<o:p></o:p></p><p class=MsoNormal><!--[if gte vml 1]><v:shapetype id="_x0000_t75" coordsize="21600,21600" o:spt="75" o:preferrelative="t" path="m@4@5l@4@11@9@11@9@5xe" filled="f" stroked="f">
<v:stroke joinstyle="miter" />
<v:formulas>
<v:f eqn="if lineDrawn pixelLineWidth 0" />
<v:f eqn="sum @0 1 0" />
<v:f eqn="sum 0 0 @1" />
<v:f eqn="prod @2 1 2" />
<v:f eqn="prod @3 21600 pixelWidth" />
<v:f eqn="prod @3 21600 pixelHeight" />
<v:f eqn="sum @0 0 1" />
<v:f eqn="prod @6 1 2" />
<v:f eqn="prod @7 21600 pixelWidth" />
<v:f eqn="sum @8 21600 0" />
<v:f eqn="prod @7 21600 pixelHeight" />
<v:f eqn="sum @10 21600 0" />
</v:formulas>
<v:path o:extrusionok="f" gradientshapeok="t" o:connecttype="rect" />
<o:lock v:ext="edit" aspectratio="t" />
</v:shapetype><v:shape id="Image_x0020_1" o:spid="_x0000_s1026" type="#_x0000_t75" style='width:453.75pt;height:255pt;visibility:visible;mso-wrap-style:square;mso-left-percent:-10001;mso-top-percent:-10001;mso-position-horizontal:absolute;mso-position-horizontal-relative:char;mso-position-vertical:absolute;mso-position-vertical-relative:line;mso-left-percent:-10001;mso-top-percent:-10001'>
<w:wrap type="none"/>
<w:anchorlock/>
</v:shape><![endif]--><![if !vml]><img width=605 height=340 src="cid:image001.png@01D320A6.70277390" v:shapes="Image_x0020_1"><![endif]><o:p></o:p></p></div></body></html>

Celui avec les liens restaurés en manuel :

<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"><head><meta http-equiv=Content-Type content="text/html; charset=iso-8859-1"><meta name=Generator content="Microsoft Word 14 (filtered medium)"><!--[if !mso]><style>v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style><![endif]--><style><!--
/* Font Definitions */
@font-face
    {font-family:"Cordia New";
    panose-1:2 11 3 4 2 2 2 2 2 4;}
@font-face
    {font-family:"Cordia New";
    panose-1:2 11 3 4 2 2 2 2 2 4;}
@font-face
    {font-family:Calibri;
    panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
    {font-family:Tahoma;
    panose-1:2 11 6 4 3 5 4 4 2 4;}
@font-face
    {font-family:"Century Gothic";
    panose-1:2 11 5 2 2 2 2 2 2 4;}
@font-face
    {font-family:Times;
    panose-1:2 2 6 3 5 4 5 2 3 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
    {margin-top:0cm;
    margin-right:0cm;
    margin-bottom:8.0pt;
    margin-left:0cm;
    line-height:106%;
    font-size:11.0pt;
    font-family:"Calibri","sans-serif";
    mso-fareast-language:EN-US;}
a:link, span.MsoHyperlink
    {mso-style-priority:99;
    color:blue;
    text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
    {mso-style-priority:99;
    color:purple;
    text-decoration:underline;}
p.MsoAcetate, li.MsoAcetate, div.MsoAcetate
    {mso-style-priority:99;
    mso-style-link:"Texte de bulles Car";
    margin:0cm;
    margin-bottom:.0001pt;
    font-size:8.0pt;
    font-family:"Tahoma","sans-serif";
    mso-fareast-language:EN-US;}
span.TextedebullesCar
    {mso-style-name:"Texte de bulles Car";
    mso-style-priority:99;
    mso-style-link:"Texte de bulles";
    font-family:"Tahoma","sans-serif";}
span.EmailStyle19
    {mso-style-type:personal-compose;}
.MsoChpDefault
    {mso-style-type:export-only;
    font-size:10.0pt;
    font-family:"Calibri","sans-serif";}
@page WordSection1
    {size:595.3pt 841.9pt;
    margin:70.85pt 70.85pt 70.85pt 70.85pt;}
div.WordSection1
    {page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]--></head><body lang=FR link=blue vlink=purple><div class=WordSection1><p class=MsoNormal>Hello Alexandre!<o:p></o:p></p><p class=MsoNormal><b><span style='font-size:12.0pt;line-height:106%;color:#1F497D'>Frederic LARD<o:p></o:p></span></b></p><p class=MsoNormal><b><span lang=EN-US style='font-size:10.0pt;line-height:106%;font-family:"Century Gothic","sans-serif";color:#003684'>Alexandre ROY</span></b><span lang=EN-US style='font-size:10.0pt;line-height:106%;font-family:"Century Gothic","sans-serif";color:#003684'> <o:p></o:p></span></p><p class=MsoNormal style='margin-bottom:12.0pt'><span lang=EN-US style='font-size:9.0pt;line-height:106%;font-family:"Century Gothic","sans-serif";color:#003684'>Apprenti Ingénieur en Assemblage<br>Business Group (if needed)<o:p></o:p></span></p><p class=MsoNormal style='margin-bottom:12.0pt'><span lang=EN-US style='font-size:9.0pt;line-height:106%;font-family:"Century Gothic","sans-serif"'>T + 00 (0) 00 00 00 00 &#8226; M +00 (0)0 00 00 00 00 <br>alexandre.roy@faurecia.com<br>Address on one line &#8211; City &#8211; Post Code &#8211; Country</span><span lang=EN-US style='font-size:9.0pt;line-height:106%;font-family:"Times","serif"'> <o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><o:p>&nbsp;</o:p></span></p><p class=MsoNormal>Bonjour le forum, voici comment faire une copie d&#8217;écran avec Surface&nbsp;:<o:p></o:p></p><p class=MsoNormal><span style='mso-fareast-language:ZH-CN'><img width=604 height=340 id="Image_x0020_1" src="cid:image001.png@01D320A6.DCA90240"></span><o:p></o:p></p></div></body></html>

Après Comparaison voici tout le code qui change entre les deux versions du fichier source :

Je viens de trouver la différence entre les deux fichiers sources HTML :

Partie du code source HTML (changeante) recupérée du document word avec liens rompus :

!--[if gte vml 1]><v:shapetype id="_x0000_t75" coordsize="21600,21600" o:spt="75" o:preferrelative="t" path="m@4@5l@4@11@9@11@9@5xe" filled="f" stroked="f">
<v:stroke joinstyle="miter" />
<v:formulas>
<v:f eqn="if lineDrawn pixelLineWidth 0" />
<v:f eqn="sum @0 1 0" />
<v:f eqn="sum 0 0 @1" />
<v:f eqn="prod @2 1 2" />
<v:f eqn="prod @3 21600 pixelWidth" />
<v:f eqn="prod @3 21600 pixelHeight" />
<v:f eqn="sum @0 0 1" />
<v:f eqn="prod @6 1 2" />
<v:f eqn="prod @7 21600 pixelWidth" />
<v:f eqn="sum @8 21600 0" />
<v:f eqn="prod @7 21600 pixelHeight" />
<v:f eqn="sum @10 21600 0" />
</v:formulas>
<v:path o:extrusionok="f" gradientshapeok="t" o:connecttype="rect" />
<o:lock v:ext="edit" aspectratio="t" />
</v:shapetype><v:shape id="Image_x0020_1" o:spid="_x0000_s1026" type="#_x0000_t75" style='width:453.75pt;height:255pt;visibility:visible;mso-wrap-style:square;mso-left-percent:-10001;mso-top-percent:-10001;mso-position-horizontal:absolute;mso-position-horizontal-relative:char;mso-position-vertical:absolute;mso-position-vertical-relative:line;mso-left-percent:-10001;mso-top-percent:-10001'>
<w:wrap type="none"/>
<w:anchorlock/>
</v:shape><![endif]--><![if !vml]><img width=605 height=340 src="cid:image001.png@01D320A6.70277390" v:shapes="Image_x0020_1"><![endif]><o:p></o:p></p></div></body></html>

Le bon : Partie du code source HTML (changeante) recupérée a partir du mail avec les liens restaurés) :

<span style='mso-fareast-language:ZH-CN'><img width=604 height=340 id="Image_x0020_1" src="cid:image001.png@01D320A6.DCA90240"></span><o:p></o:p></p></div></body></html>

Penses-tu qu'il serait possible de faire un replace dans mon code source ?

Bonjour,

on trouve bien un CID: dans les 2 cas !!!! donc je ne comprends plus bien

<img width=604 height=340 id="Image_x0020_1" src="cid:image001.png@01D320A6.DCA90240">
<img width=605 height=340 src="cid:image001.png@01D320A6.70277390"v:shapes="Image_x0020_1">

Il serait intéressant de savoir où est logé image001.png ... à voir dans probablement C:\Users\XXXX\AppData\Roaming\Microsoft

Mais il ne sera pas évident de trouver les caractères suivants @


J'attends ton verdict pour l'essai proposé ci-dessus.

Excel ouvre la fichier word, copie dans le presse-papier le contenu, ouvre un message et colle le presse-papier dedans.

Bonjour,

J'ai un autre problème avec ta solution, le collage se fait au mauvais endroit (Destinataire) :

mail test

Merci encore.

ok

pas de soucis

je vais ajouter les tabulations en te donnant la marche à suivre ...

je ne suis pas dispo dans l'heure qui vient mais je le ferai dès que je peux

Pas de soucis pour ton indispo. Tu es déjà très réactif

J'ai essayé par anticipation avec SendKeys "{TAB}", ça me fait de réelles tabulations au lieu de naviguer dans les champs.

Je te remercie encore pour ton aide !

1- regarde si, lorsque l'adresse mail est renseignée par macro, la zone active n'est pas le corps du mail quand la macro ouvre un nouveau message

2- sinon, essaie ceci, mais je suis étonné que ton essai n'ait pas fonctionné ! peut-être à cause de l'absence du True

    With email
        .to = ""
        .Subject = "test envoi mail corps réaalisé sous word"
        .display
        Application.Wait (Now + TimeValue("0:00:01"))
        SendKeys "{TAB 3}", True
        SendKeys "^v", True
    End With

j'ai mis 3 tabulations, mais cela reste à ajuster (je n'en ai jamais eu besoin avec les mails)

Rechercher des sujets similaires à "enr word html envoi mail lien image rompus"