how to add bold to a section in my email vba code

[Patriot2879]

Hi good morning all, Please can help with the code below, the section half way down where it says Comments: I want this to be in bold, I have tried <b> but this didn't work, please can you help me?

Private Sub CommandButton2_Click()
    If TextBox9.Value = "" Then
        MsgBox "Please enter 'Comments'"
        Exit Sub
    Else

    End If
Dim aOutlook As Object
Dim aEmail As Object
Dim rngeAddresses As Range, rngeCell As Range, strRecipients As String
Set aOutlook = CreateObject("Outlook.Application")
Set aEmail = aOutlook.CreateItem(0)
        aEmail.Body = "Hi There," & Chr(10) & vbCrLf & _
                      "Appt Number: " & Me.TextBox8.Value & Chr(10) & _
                      "MPAN / MPRN: " & Me.TextBox7.Value & Chr(10) & _
                      "Job Type: " & Me.ComboBox6.Value & Chr(10) & _
                      "Post Code: " & Me.TextBox3.Value & Chr(10) & _
                      "Comments:" & Me.TextBox9.Value & Chr(10) & _
                      "Activity: " & Me.ComboBox3.Value & Chr(10) & _
                      "Action: " & Me.ComboBox1.Value & Chr(10) & vbCrLf & _
                      "Many thanks " & Chr(10)
        aEmail.Recipients.Add (Worksheets("Email Links").Range("A2").Value)
    
        aEmail.CC = ""
        aEmail.BCC = ""
        aEmail.Subject = "" & UserForm3.ComboBox3.Value & " " & Worksheets("Handover").Range("K1").Value
        aEmail.Display

End Sub

 

[James006]

Hi,

You should use the HTMLBody property (instead of .Body .htmlBody ) and then use HTML to format your text ...

Hope this will help

 

[Patriot2879]

that's worked thank you

 

[James006]

You are welcome ... :wink: