how to add <b> to text

[Patriot2879]

Hi please can you help me, I have the cold below where I want the "comments" to be in bold, how do I do this please? I have tried the <B> in front of the comments but this didn't work.

"Comments: " & Me.TextBox9.Value & Chr(10) & _

 

[RoryA]

How/where are you displaying the text?

 

[Patriot2879]

Hi this is the whole code below, it is in the aEmail.body section , and the comments bit I need in bold if you can help please?

Private Sub CommandButton4_Click()
    If NotesBox.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.TextBox5.Value & Chr(10) & _
                      "MPAN / MPRN: " & Me.TextBox4.Value & Chr(10) & _
                      "Post Code: " & Me.TextBox3.Value & Chr(10) & _
                      "Comments: " & Me.NotesBox.Value & Chr(10) & _
                      "Issue: " & Me.ComboBox3.Value & Chr(10) & _
                      "Action Required: " & Me.ComboBox4.Value & Chr(10) & vbCrLf & _
                      "Many thanks " & Chr(10)
        aEmail.Recipients.Add (Worksheets("Email Links").Range("A2").Value)
    
        aEmail.CC = (Worksheets("Email Links").Range("B2").Value)
        aEmail.BCC = ""
        aEmail.Subject = "" & UserForm4.ComboBox3.Value & " " & Worksheets("Handover").Range("K1").Value
        aEmail.Display

End Sub

 

[RoryA]

You need to use the HTMLBody property and not the Body if you want to include HTML tags. Also, don't forget the closing </b> tag after the comments.

 

[Patriot2879]

Hi I have just changed it to the following but it still doesn't work, it comes up as all red. hope you can offer more advise?

Private Sub CommandButton4_Click()
    If NotesBox.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.HTMLBody = "Hi There," & Chr(10) & vbCrLf & _
                      "Appt Number: " & Me.TextBox5.Value & Chr(10) & _
                      "MPAN / MPRN: " & Me.TextBox4.Value & Chr(10) & _
                      "Post Code: " & Me.TextBox3.Value & Chr(10) & _
                      "<b>" "Comments: "</b> "" & Me.NotesBox.Value & Chr(10) & _
                      "Issue: " & Me.ComboBox3.Value & Chr(10) & _
                      "Action Required: " & Me.ComboBox4.Value & Chr(10) & vbCrLf & _
                      "Many thanks " & Chr(10)
        aEmail.Recipients.Add (Worksheets("Email Links").Range("A2").Value)
    
        aEmail.CC = ""
        aEmail.BCC = ""
        aEmail.Subject = "" & UserForm4.ComboBox3.Value & " " & Worksheets("Handover").Range("K1").Value
        aEmail.Display

 

[RoryA]

You need something like this:

        aEmail.HTMLBody = "Hi There," & Chr(10) & vbCrLf & _
                      "Appt Number: " & Me.TextBox5.Value & Chr(10) & _
                      "MPAN / MPRN: " & Me.TextBox4.Value & Chr(10) & _
                      "Post Code: " & Me.TextBox3.Value & Chr(10) & _
                      "<b>Comments: </b> " & Me.NotesBox.Value & Chr(10) & _
                      "Issue: " & Me.ComboBox3.Value & Chr(10) & _
                      "Action Required: " & Me.ComboBox4.Value & Chr(10) & vbCrLf & _
                      "Many thanks " & Chr(10)

 

[Patriot2879]

that works great many thanks