Email from VBA with some words in bold

[Salvavit]

Hello everyone. I've wrote the following VBA code that captures a range of cells from an excel file and send it via email adding a brief description as introduction. I'd like the uppercase AAA, BBB and CCC to be in bold. How can I do that?

Sub Send_Range()



' Select the range of cells on the active worksheet.

ActiveSheet.Range("A1:L10").Select



' Show the envelope on the ActiveWorkbook.

ActiveWorkbook.EnvelopeVisible = True



' Set the optional introduction field thats adds

' some header text to the email body. It also sets

' the To and Subject lines. Finally the message

' is sent.

With ActiveSheet.MailEnvelope

.Introduction = "AAA:" & vbNewLine & "aaa=6" & vbNewLine & "aaa=15" & vbNewLine & "*BBB" & vbNewLine & "0" & vbNewLine & "*CCC" & vbNewLine & "ccc=89" & vbNewLine & "ccc=159"

.Item.To = "email address"

.Item.Subject = "email subject"

.Item.Send

End With

End Sub