How to make part of my VBA bulk email in bold

[Jayway]

I am sending bulk emails out and have the following VBA. I would like to make the bodysubHeader bold but keeping the bodyHeader and bodyMain as normal. How can I do this?

Sub SendMultipleEmails()

Dim OutApp As New Outlook.Application
Dim OutMail As MailItem

lr = Cells(Rows.Count, "D").End(xlUp).Row
bodySignature = "Best Regards," & vbLf & "Phillips 66 Compliance Team"
For r = 2 To lr
Set OutMail = OutApp.CreateItem(olMailItem)

With OutMail
.To = Range("D" & r).Value
.Subject = Range("E2").Value
bodyHeader = "To " & Range("C" & r).Value & ","
bodysubHeader = Range("B" & r).Value
bodyMain = Range("F2").Value
.Body = bodyHeader & vbLf & vbLf & bodysubHeader & vbLf & vbLf & bodyMain & vbLf & vbLf & bodySignature
.Attachments.Add Range("G2").Value
.Display
' .send
End With
Next r

Set OutMail = Nothing
Set OutApp = Nothing



End Sub

 

[John_w]

Edit - did the wrong part.

Replace the .Body line with:

            .HTMLBody = bodyHeader & "<br><br><b>" & bodysubHeader & "</b><br><br>" & bodyMain & "<br><br>" & bodySignature

PS - please post VBA code inside VBA code tags:

[CODE=vba]
code here
[/CODE]