Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Vba mail outlook texte en gras

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion raf26
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
R

raf26

XLDnaute Occasionnel
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
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
 
Trier par date Trier par votes
re
tiens j'ai corrigé une petite erreur de ma part testé avec outlook
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)
    
     sAdrmail = "Raf26@toto.com"        'adresse destinataire
    SAdrCC = "moimeme@hotmail.com'        'adresse CC"
       strSujet = "juste un coucou"        'sujet du mail
           strBody = "<p>"
    strBody = strBody & arrangetext("Bonjour ", , , , True, True, True)
    strBody = strBody & arrangetext("Raf26 ", "blue", 28, , True, , True) & "<br/>"
    strBody = strBody & arrangetext("comment va tu aujourd'hui", "red", , "Arial") & "<br/>"
    strBody = strBody & "tu t'éclate bien sur "
    strBody = strBody & arrangetext("EXCELDOWNLOAD", "green", 30, "Algerian", True)
    strBody = strBody & "</p>"
     With OutMail
        .Display        'affiche le mail sans l'envoyer sinon .send
        
        .To = sAdrmail
        .CC = SAdrCC
        .Subject = strSujet
        .HTMLBody = strBody
        
    End With
    
    Set OutMail = Nothing
    Set OutObj = Nothing
    
End Sub
Function arrangetext(txt, Optional couleur As Variant = "", Optional fontsiz As Long = 0, Optional fontName As String = "calibri", Optional bolder As Boolean = False, Optional italique As Boolean = False, Optional underligne As Boolean = False, Optional barré As Boolean = False)
    Dim Fc As Object
    With CreateObject("htmlfile")
        Set Fc = .createelement("FONT")
        If couleur <> "" Then Fc.Color = couleur
        If fontsiz > 0 Then Fc.Style.fontsize = fontsiz & "px"
        If barré Then txt = "<strike>" & txt & "</strike"
        If underligne Then txt = "<u>" & txt & "</u>"
        If italique Then txt = "<em>" & txt & "</em>"
        If bolder Then txt = "<strong>" & txt & "</strong>"
        Fc.innerhtml = txt
        If Not IsNull(Fc.getattribute("size")) Then Fc.removeAttribute ("size")
        arrangetext = Fc.outerhtml
    End With
End Function

 
Vote positif 0 Vote négatif
re j'en ai profité pour te lettre le fontname aussi je ne l'avais pas fait dans la fonction
maintenant tu peux injecter la couleur sous toutes ses formes possibles
en texte: "red",yellow","blue" ,"orange"etc...
en constante vb : vbred,vbgreen,vbmagenta,etc......
par les index de couleurs excel 1,2,3,4,5,.....56
par le rgb: rgb(x,y,z)
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)

    sAdrmail = "Raf26@toto.com"        'adresse destinataire
    SAdrCC = "moimeme@hotmail.com'        'adresse CC"
    strSujet = "juste un coucou"        'sujet du mail
    strBody = "<p>"
    strBody = strBody & arrangetext("Bonjour ", RGB(255, 0, 255), 15, , True, True, True)
    strBody = strBody & arrangetext("Raf26 ", "3", 28, , True, , True) & "<br/>"
    strBody = strBody & arrangetext("comment va tu aujourd'hui", "orange", , "Arial") & "<br/>"
    strBody = strBody & "tu t'éclate bien sur "
    strBody = strBody & arrangetext("EXCELDOWNLOAD", "green", 30, "Algerian", True)
    strBody = strBody & "</p>"
    With OutMail
        .Display        'affiche le mail sans l'envoyer sinon .send
        .To = sAdrmail
        .CC = SAdrCC
        .Subject = strSujet
        .HTMLBody = strBody
    End With
    Set OutMail = Nothing
    Set OutObj = Nothing

End Sub
Function arrangetext(txt, Optional couleur As Variant = "", Optional fontsiz As Long = 0, Optional fontName As String = "calibri", Optional bolder As Boolean = False, Optional italique As Boolean = False, Optional underligne As Boolean = False, Optional barré As Boolean = False)
    Dim Fc As Object
    With CreateObject("htmlfile")
        Set Fc = .createelement("FONT")
        If IsNumeric(couleur) Then
            If couleur <= 56 Then couleur = HtmlColor(ThisWorkbook.Colors(couleur)) Else couleur = HtmlColor(couleur)
        End If
         If couleur <> "" Then Fc.Color = couleur
        If fontsiz > 0 Then Fc.Style.FontSize = fontsiz & "px"
        If fontName <> "calibri" Then Fc.face = fontName
        If barré Then txt = "<strike>" & txt & "</strike>"
        If underligne Then txt = "<u>" & txt & "</u>"
        If italique Then txt = "<em>" & txt & "</em>"
        If bolder Then txt = "<strong>" & txt & "</strong>"
        Fc.innerhtml = txt
        If Not IsNull(Fc.getattribute("size")) Then Fc.removeAttribute ("size")
        arrangetext = Fc.outerhtml
    End With
End Function
Function HtmlColor(x) As String
    c = Right("000000" & Hex(x), 6)
    HtmlColor = "#" & Mid(c, 5, 2) & Mid(c, 3, 2) & Mid(c, 1, 2)
End Function
demonstartion
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
915
spike29
S
G
  • Question Question
Microsoft 365 Valider automatiquement un message d'alerte
Réponses
4
Affichages
291
GG Delcroix
G
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
447
Phil69970
G
  • Question Question
Microsoft 365 Vba Excel l'instruction Set OutApp = CreateObject("Outlook.Application") bloque excel
Réponses
2
Affichages
650
laurent950
G
  • Résolu(e)
XL 2021 Envoie d'informations sélectionnés par mail
Réponses
3
Affichages
360
TooFatBoy
S
  • Résolu(e)
Microsoft 365 Envoi de la signature de l'utilisateur macro envoi de mail
Réponses
3
Affichages
541
spike29
S
  • Résolu(e)
XL 2021 Revenir sur Excel
Réponses
6
Affichages
583
Franc58
F
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
671
Oneida
N
  • Question Question
XL 2016 Code VBA pour envoi de mail avec pdf en piece jointe
Réponses
4
Affichages
711
Phil69970
N
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
907
TooFatBoy
J
  • Question Question
XL 2016 Problème envoi mail par macro suite passage Office 365
Réponses
11
Affichages
460
Jean Michel
J
B
  • Question Question
XL 2016 VBA - Ajout de consignes dans le corps d'un mail
Réponses
3
Affichages
403
kiki29
  • Question Question
XL 2019 HTML Corps de mail
Réponses
6
Affichages
811
My<3
V
  • Résolu(e)
Microsoft 365 Envoie mail automatique
2
Réponses
17
Affichages
2 K
vby
V
N
  • Résolu(e)
XL 2021 Exporter un graphique dans Outlook
Réponses
3
Affichages
577
NLSCt
N
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
394
job75
R
  • Résolu(e)
Microsoft 365 Extraction contenu mail outlook vers excel
2
Réponses
18
Affichages
2 K
raf26
R
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
684
VBA_dev_Anne_Marie
K
  • Résolu(e)
XL 2019 Probleme codage
Réponses
2
Affichages
474
Kevin42560
K
D
  • Résolu(e)
Microsoft 365 Macro pour rafraîchir les liaisons
Réponses
11
Affichages
547
AtTheOne
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…