Problème de balise dans le body d'un mail

Bonjour,

Voici mon programme ci-dessous : Ce programme permet d'aller chercher aléatoirement une information dans un autre classeur sous une Variable intitulé "Mot" et de l'envoyer par mail.

Mais dans le body je n'arrive pas a faire une balise de couleur juste pour cette variable. Avez-vous une solution à mon problème ?

Sub SendMail_Outlook()

Dim OL As Object

Dim OLmail As Object

On Error Resume Next

Set OL = CreateObject("Outlook.Application")

Set OLmail = OL.CreateItem(0)

With OLmail

Ce qui est en rouge est la recherche aléatoire du contenu d'une cellule d'un autre fichier excel

Dim t(1 To 100)

J = 0

For I = 1 To 100

If Workbooks("BLAGUE").Sheets("Feuil1").Cells(I, 1) <> "" Then

J = J + 1

t(J) = Workbooks("BLAGUE").Sheets("Feuil1").Cells(I, 1)

End If

Next I

Randomize

Mot = t(Int(J * Rnd) + 1)

.To = "s.fructuoso@beneteau-group.com;" & _

"la.martin@beneteau-group.com"

.Subject = Range("F1").Value & "-" & Range("F2").Value & "-" & Range("F3").Value & "-" & Range("F4").Value

.Body = "Bonjour Laurent et Simon," & vbCrLf & vbCrLf _

& "Voici les prérequis avant conception de notre projet" & vbCrLf & vbCrLf _

& "voici la blague du jour :" & vbCrLf & vbCrLf _

& Mot

.Display

End With

Set OLmail = Nothing

Set OL = Nothing

Set OLk_Appli = Nothing

End Sub

Bonjour,

Si au lieu d'utiliser .Body tu choisis d'utiliser .HTMLBody

Tu pourras alors en HTML changer de couleur, avoir du texte en gras, etc ...

En espèrant que cela t'aide

Oui c'est ce que j'avais pensé mais le problème ce que je peux pas attribuer une balise de couleur à une variable ici moi c'est "Mot" donc je sais pas si c'est possible

Re,

Avec la concaténation, je ne vois pas ce qui pourrait t'empêcher d'avoir une variable ...

Si ton Mot se trouve dans une variable Range ... style rng ... tu peux utiliser rng.value ...

En espèrant que cela t'aide

Bonjour,

à tester,

MonTexte = Cells(1, 1)
strbody = "<span style=""color:red"">" & MonTexte & "</span>"
.HTMLBody = strbody & "<br>" & .HTMLBody

Parfait le fait de passer par strbody ça marche très bien.

Merci beaucoup