Mise en forme body de l'email créé par VBA
Bonjour,
J'ai réussi réalisation un bouton vba pour créer le remplissage automatique d'un email via outlook, (autre sujet sur le forum)
Mais je n'arrive pas a mettre en forme celui ci.
1 / j'aimerais taille texte = 11pt - police CALIBRI (corps)
2 / Mettre en gras uniquement la partie après les ":" de la liste / remplissage automatique (suivant cellule & Range("A1") par exemple)
• capture écran Résultat macro :
• capture écran Résultat souhaité :
Ci dessous le codage actuellement utilisé :
code Macro Module 1 :
Sub Envoi_Mail_PA()
Dim OutApp As Object, OutMail As Object
Dim StrHTML As String, StrSignature As String
On Error Resume Next
On Error GoTo 0
With Application
.EnableEvents = False ' Désactiver les Evènements
.ScreenUpdating = False ' Désactiver le rafraichissement
End With
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.BodyFormat = olFormatHTML
.Display ' Afficher le mail pour la signature (si insertion auto)
.To = MailProjet
.Subject = SujetProjet
StrHTML = BodyProjet
.HTMLBody = StrHTML & StrSignature & .HTMLBody
' .Attachments.Add
.Display 'Save pour brouillon et Send => Pour envoi direct
End With
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Set OutMail = Nothing: Set OutApp = Nothing
End SubEnsuite dans feuille 1 :
Sub Envoi_Mail_SITU()
MailProjet = "mail1@mail1.fr"
SujetProjet = Range("C8") & "_" & Range("C5") & "_" & Range("C6") & "_" & Range("F3") & "_" & "PA" & Range("N15")
BodyProjet = "<span style =""color:blue""> ** POUR SIGNATURE** </span>" _
& "<br><br><br> Bonjour" & "," _
& "<br><br> Vous trouverez ci-joint :" _
& "<br><br> Objet : PA n° " & Range("N15") _
& "<br> Entreprise : " & Range("F3") _
& "<br> Lot n° : " & Range("F4") _
& "<br>Projet : " & Range("C5") _
& "<br> Agence de : " & Range("C6") _
& "<br> Opération : " & Range("C7") _
& "<br> Num Affaire : " & Range("C8") _
Envoi_Mail_PA
End SubMerci de votre aide pour mise en forme du BODY
Bonne journée
bonjour,
utilise la balise HTML pour mettre du texte en gras. Une adaptation de ton code pour le codage HTML (non testé).
Sub Envoi_Mail_SITU()
MailProjet = "mail1@mail1.fr"
SujetProjet = Range("C8") & "_" & Range("C5") & "_" & Range("C6") & "_" & Range("F3") & "_" & "PA" & Range("N15")
BodyProjet = "<span style =""color:blue""> ** POUR SIGNATURE** </span>" _
& "<br><br><br> Bonjour" & "," _
& "<br><br> Vous trouverez ci-joint :" _
& "<br><br> Objet : PA n° <B>" & Range("N15") & "</B>" _
& "<br> Entreprise : <B>" & Range("F3") & "</B>" _
& "<br> Lot n° : <B>" & Range("F4") & "</B>" _
& "<br>Projet : <B>" & Range("C5") & "</B>" _
& "<br> Agence de : <B>" & Range("C6") & "</B>" _
& "<br> Opération : <B>" & Range("C7") & "</B>" _
& "<br> Num Affaire : <B>" & Range("C8") & "</B>"
Envoi_Mail_PA
End SubMerci bcp. Cela fonctionne.
Une solution pour mettre le texte de l'ensemble du mail en taille 11pt ?
(pour le moment il se met en mode 10pt)
Merci encore.
bonjour,
avec ceci
.Subject = SujetProjet
StrHTML = "<BODY style='font-size:11pt;font-family:Calibri'>" & BodyProjet & "</BODY>"
.HTMLBody = StrHTML & StrSignature & .HTMLBody
oubien la même méthode dans l'autre macro
Magnifique.
Merci de votre aide.
Bonne journée