Envoi Email avec texte en gras dans le corps du message

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Projeteur08
  • 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
P

Projeteur08

XLDnaute Nouveau
Bonjour,

Dans un classeur utilisé par différentes personnes, il y a une macro pour
envoyer en automatique des emails dont le corps du message se compose
d'éléments variables et invariables.
Cela fonctionne très bien avec le code ci-après.

Mais je voudrais que les éléments variables soient en caractères gras.

Est-ce possible, si oui comment ?

Merci par avance pour vos réponse.

Voici une partie de mon code

'DETERMINATION DES VARIABLES

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

'SELECTION DE L'APPLICATION EXTERIEURE UTILISEE POUR L'ENVOI DU MESSAGE

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

'CREATION DU CORPS DU MESSAGE AVEC RECUPERATION DES DIFFERENTES VALEURS

strbody = " A Tous," & _
vbNewLine & vbNewLine & _
" Bonjour, " & vbNewLine & vbNewLine & _
" Suite à la création et/ou l'évolution de : " &
Workbooks("Gestion des plans.xls").Sheets("Message").Range("B3").Text & _
vbNewLine & vbNewLine & _
" Je vous invite à consulter, sur le serveur informatique,
les documents suivants au format PDF :" & _
vbNewLine & vbNewLine & _
" L'avis de diffusion " & Workbooks("Gestion des
plans.xls").Sheets("Message").Range("B7").Text & _
vbNewLine & _
" Sous J:\Documents Techniques\Avis de diffusion\" & _
vbNewLine & vbNewLine & _
" Le(s) document(s) suivant(s) : " & Workbooks("Gestion des
plans.xls").Sheets("Message").Range("B10").Text & _
vbNewLine & _
" Sous J:\Documents Techniques\Plans\" & _
vbNewLine & vbNewLine & _
" et / ou" & _
vbNewLine & vbNewLine & _
" La (les) notice(s) suivantes : " & Workbooks("Gestion des
plans.xls").Sheets("Message").Range("B13").Text & _
vbNewLine & _
" Sous J:\Documents Techniques\Notices NPAF\" & _
vbNewLine & vbNewLine & _
" Cordialement" & _
vbNewLine & vbNewLine & _
" " & Workbooks("Gestion des
plans.xls").Sheets("RECAP.").Range("L1").Text

On Error Resume Next

'CREATION DE L'ENTETE DU MESSAGE

With OutMail
.To = Workbooks("Gestion des
plans.xls").Sheets("Message").Range("B32").Text
.Cc = Workbooks("Gestion des
plans.xls").Sheets("Message").Range("Q1").Text
.Bcc = ""
.Subject = "Avis de diffusion " & Workbooks("Gestion des
plans.xls").Sheets("RECAP.").Range("A1").Value
.Body = strbody


Projeteur08.
 
Trier par date Trier par votes
Re : Envoi Email avec texte en gras dans le corps du message

Bonsoir

Remplace la propriété .Body par la propriété .HTMLBody.


Un exemple qui insère une plage de cellules dans le corps du message :

Code: 
'Nécessite d'Activer la reference Microsoft Outlook xx.x Object Library
Dim OlApp As Outlook.Application
Dim OlItem As Outlook.MailItem
Dim strHTML As String
Dim i As Integer, j As Integer

strHTML = ""
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "Bonjour , <BR>vous trouverez ci joint le tableau demandé<BR><BR>"
strHTML = strHTML & "<B><SPAN STYLE='background-color:green;font-size:6mm'>Résultats : </SPAN></B><BR><BR>"
strHTML = strHTML & "<TABLE BORDER>"

For i = 1 To 5 'nombre de lignes (exemple plage A1:B5)
    strHTML = strHTML & "<TR halign='middle'nowrap>"
    For j = 1 To 2 'nombre de colonnes
        strHTML = strHTML & "<TD bgcolor='yellow'align='center'><FONT COLOR='blue'SIZE=3>" _
        & Cells(i, j) & "</FONT></TD>"
    Next j
    strHTML = strHTML & "</TR>"
Next i

strHTML = strHTML & "</TABLE>"
strHTML = strHTML & "<BR><BR>Cordialement<BR>" & Environ("username")
strHTML = strHTML & "</BODY>"
strHTML = strHTML & ""

Set OlApp = New Outlook.Application
Set OlItem = OlApp.CreateItem(olMailItem)

With OlItem
    .To = "[EMAIL="destinataire@mail.fr"]destinataire@mail.fr[/EMAIL]"
    .Subject = "le titre"
    .HTMLBody = strHTML
    .Display
    '.Save
    '.Send
End With


bonne soirée
michel
 
Vote positif 0 Vote négatif
Re : Envoi Email avec texte en gras dans le corps du message

Bonjour,

Un grand merci MichelXld pour ton aide.
En m'inspirant de ton code j'ai bien utilisé la balise .HTMLBody puis programmer mon texte en HTML.
J'ai pu mettre du texte en gras, en couleur, souligné... avec les balises HTML.

encore merci.
 
Dernière édition:
Vote positif 0 Vote négatif
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

M
  • Question Question
XL 2016 Envoi courriel copier/coller avec mise en forme (corps couuriel)
Réponses
2
Affichages
1 K
MONTREAL2020
M
gilles37
  • Question Question
XL 2019 Message en fonction d'une date
Réponses
11
Affichages
2 K
gilles37
gilles37
S
  • Question Question
XL 2013 Convertir classeur en PDF, crypter avec mot de passe et envoyer via Outlook
Réponses
2
Affichages
2 K
Saliou MBALO
S
L
  • Résolu(e)
XL 2019 Lien Cliquable VBA Email
2
Réponses
20
Affichages
4 K
LuanaDDC
L
R
  • Question Question
Microsoft 365 Vba mail outlook texte en gras
2
Réponses
22
Affichages
8 K
raf26
R
P
  • Question Question
XL 2016 ecrire du texte avant un tableau dans outlook via une macro dans VBA
Réponses
6
Affichages
6 K
riddick93
R
jeanmi
  • Question Question
XL 2010 Insertion image / Word à partir d’Excel à lire texte d’explication
Réponses
2
Affichages
1 K
jeanmi
jeanmi
P
  • Question Question
XL 2016 Envoi d'un onglet de mon classeur excel par mail
Réponses
4
Affichages
2 K
PETIT YANNICK
P
F
  • Question Question
Autres Pièce jointe dans le lancement d'Outlook en VBA
Réponses
0
Affichages
595
FOUQUET Yves
F
A
  • Question Question
XL 2016 VBA Envoi d'un email avec une image dans le corps du message
Réponses
4
Affichages
13 K
vivi14
V
bellenm
  • Question Question
EnvoiMail_CdoMsg_ de Roland_M , dans MailEnvoyés il n'y a pas les fichiers! + insertion d'une image dans le corps du message.
Réponses
14
Affichages
907
Roland_M
Roland_M
C
  • Question Question
XL 2013 Envoie groupé de mails contenant login et mdp uniques ... Mais pourquoi un espace en plus !?
Réponses
0
Affichages
873
Cecinerock
C
F
  • Question Question
Autres VBA Fusionner puis envoyer Word avec Outlook
Réponses
0
Affichages
1 K
FOUQUET Yves
F
M
  • Question Question
XL 2013 Erreur en fin de boucle ?
Réponses
2
Affichages
1 K
massol
M
luke3300
  • Question Question
XL 2013 Formule collée en tant que texte dans un code
Réponses
10
Affichages
1 K
luke3300
luke3300
A
  • Question Question
XL 2010 VBA coller ligne en fonction de la ligne du dessous
Réponses
5
Affichages
1 K
arochab
A
S
  • Question Question
envoi pièce jointe avec thunderbird impossible
2
Réponses
17
Affichages
5 K
SALAH
S
I
  • Question Question
XL 2013 (Résolu par JOB) importation des données sauf les lignes avec cellules en GRAS
3 4 5
Réponses
60
Affichages
6 K
ibni
I
B
  • Question Question
Excel VBA code pour envoyer e-mail avec PDF (un bug dans le code)
Réponses
5
Affichages
4 K
Matheop
Matheop
J
  • Question Question
Publipostage avec Excel pour Excel
Réponses
0
Affichages
919
joelle2302
J
Retour