How to Bold part of Email. (1 Viewer)

[Aimn_4U]

Hi all,

I have a code to open a new email which puts in the data I want it to. However i would like to be able to format certain Sections so they are bold.

EG: Based on the code below I would like to format the "Internal Unit Code:" and "Internal Unit Title:" parts to Bold.

Could someone please help with how to do this.

Private Sub Send_for_Review_Click()
Dim appOutlook As New Outlook.Application
Dim strBody As String

Dim objEmail As Outlook.MailItem

Set objEmail = appOutlook.CreateItem(olMailItem)

strBody = "Dear" & vbNewLine & vbNewLine & _
"Please see below details of a precedent that require your review." & vbNewLine & _
"Attached is the documentation that was used for the previous assessment of this precedent." & vbNewLine & vbNewLine & _
"Internal Unit Code: " & Me.Internal_Unit_Code & "" & vbNewLine & _
"Internal Unit Title: " & Me.Internal_Unit_Title & "" & vbNewLine & _

"If you could please review this precedent and return the outcome to us within 5 working days."



With objEmail
.To = strEmail
.Subject = "Precedent for Approval"
.Body = strBody
.Display
End With

End Sub

 

[June7]

Format text with HTML tags.
"<b>Internal Unit Code: </b>"

Then use:

.HTMLBody = strBody