Bonjour,
Débutant en VBA et encore plus Html, je bloque sur la mise en forme de mon corps de mail.
Contexte:
J'ai une macro qui me permet de générer des mails de signalement.
Je souhaite pouvoir hiérarchiser le corps de mail par de la couleur et du texte en gras.
J'utilise pour cela le langage Html.
Jusque là tout fonctionnement bien.
Problématique:
Dès que j'essaye d'intégrer dans le corps de mail le contenu d'une cellule (un chiffre) ça ne fonctionne pas.
C'est le texte du code qui se retrouve et gras et non le contenu de la cellule souhaitée : <b> HtmlRch(ThisWorkbook.Worksheets(1).Cells(6, 2).Text)</b>
Je bloque depuis maintenant des heures sur ce point et malgré mes recherches je n'ai pas trouvé de réponses à ma problématique.
Autre point :
Je veux intégrer le contenu d'une cellule dans le corps de mail Html. Valeur string OUI /NON
Je souhaite appliquer une mise en forme conditionnel sur le contenu de cette cellule : si OUI surligner en VERT / si NON surligner en ROUGE
Je suis conscient que la structure de mon code peut largement être optimisée mais dans un premier temps je souhaite un code fonctionnel et le plus simple possible.
Merci d'avance pour vos réponses
Ci-dessous le détail de mon code :
Sub EnvoyerMail()
Set OutApp = CreateObject("outlook.application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = Sheets("MAIL").Range("B199").Value
.CC = ""
.Subject = " SIGNALEMENT " & " " & Sheets("signalement").Range("A3").Value & " " & Sheets("signalement").Range("B6").Value & " " & " code erreur " & Sheets("signalement").Range("B17").Value
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><body>Bonjour <p>" _
& "Vous trouverez ci-dessous un nouveau signalement. <p>" _
& "Il s'agit de la fiche n°" & "<b> HtmlRch(ThisWorkbook.Worksheets(1).Cells(6, 2).Text)</b> <p>" _
& "<FONT COLOR=RED>Temps perdu</FONT> en minutes <p>" _
& "Cordialement </body><HTML>"
.Display
End Sub