Bonjour le forum,
J'ai besoin de votre aide.
Malgré mes recherches, je suis perdu entre tout ce que j'ai trouvé. (les <b> span style etc....)
Je n'arrive pas à mettre des parties de mon mail en gras et à adapter les résultats des posts.
L'envoi mail marche, je veux juste que le sujet et le corps du mail soit en gras (et si possible taille 14).
Ci-dessous mon code
Merci d'avance pour votre aide.
Bon week-end
J'ai besoin de votre aide.
Malgré mes recherches, je suis perdu entre tout ce que j'ai trouvé. (les <b> span style etc....)
Je n'arrive pas à mettre des parties de mon mail en gras et à adapter les résultats des posts.
L'envoi mail marche, je veux juste que le sujet et le corps du mail soit en gras (et si possible taille 14).
Ci-dessous mon code
Merci d'avance pour votre aide.
Bon week-end
VB:
Sub Mail() 'envoi mail
Dim OutObj As Object, OutMail As Object
Dim sPath As String, sNomFic As String
Dim sAdrmail As String, strSujet As String, strBody As String
Set OutObj = CreateObject("outlook.application") 'lance outlook
Set OutMail = OutObj.CreateItem(0)
Sheets("blabla").Visible = TRUE
sAdrmail = Sheets("blabla").Range("A58") 'adresse destinataire
SAdrCC = Sheets("balbla").Range("A59") 'adresse CC
strSujet = "engras" & Sheets("balbla").Range("D42") & " " & Sheets("blabla").Range("D41") 'sujet du mail
'corps du mail
With Sheets("blabla")
strBody = "-----EN GRAS - ------ <br> <br>je veux ce texte en gras" & Sheets("balbla").Range("D42") & " " & Sheets("balbla").Range("D41") & " je veux ce texte en gras " & " : <br><br>"
strBody = strBody & Extraire(.Range("A53")) & "" 'LIGNE COMPLETE DOIT ETRE EN GRAS
End With
With OutMail
.Display 'affiche le mail sans l'envoyer sinon .send
.To = sAdrmail
.CC = SAdrCC
.Subject = strSujet
.HTMLBody = strBody & "<br><br>" & .HTMLBody
End With
Set OutMail = Nothing
Set OutObj = Nothing
Sheets("blabla").Select
ActiveWindow.SelectedSheets.Visible = FALSE
Sheets("balbla2").Activate
End Sub