Mettre en gras une partie d'un mail généré via vba excel

**arnold95** · 09/01/2013, 13h46

Bonjour à tous,

Je souhaiterais envoyer automatiquement un mail via Outlook et qui serait généré par vba Excel. L'objet de ma demande est de savoir comment je peux mettre en gras certains mots qui sont dans l'objet du mail.
Sur un exemple simple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub Send_MsgHNY()
 
 
Set objOL = CreateObject("Outlook.Application")
 
Set objMail = objOL.CreateItem(olMailItem)
 
file_export = ActiveWorkbook.Path + "\" + ActiveWorkbook.Name
 
 
 
With objMail
 
    .to = Cells(8, 6)
 
    .CC = Cells(9, 6)
 
    .Subject = Cells(7, 6) & " Happy New Year "
 
    .Body = "Bonne" & _
    Chr(13) & "Année" & _
    Chr(13) & "2013"
 
    .Attachments.Add file_export
 
    .Display
 
End With
 
 
 
 
ActiveWorkbook.Close
 
 
 
Set objMail = Nothing
 
Set objOL = Nothing

J'aimerais mettre en gras uniquement le mot "Année".

Merci d'avance pour votre aide et bonne année 2013

**QuestVba** · 09/01/2013, 16h08

Bonjour

Peut etre ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.HTMLBody = "<BODY><B> année </B></BODY>"

Il faudra passer par pour un exemple un peu fou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
...
strHTML = "Bonne "
 strHTML = strHTML + "<BODY><B><SPAN STYLE='background-color:green;font-size:6mm'>Année : </SPAN></B></BODY>"
...
    .htmlBody = strHTML
...

Mettre en gras une partie d'un mail généré via vba excel

Macros et VBA Excel

Discussions similaires

Partager

Partager