Macro E-mail font and font color

Hello-

First time poster. I have a macro that is sending an E-mail out, and it is working well. My only problem that i'm having is in the body of the E-mail i do not know how to configure the macro so that i can change the font, and the font color.
The part of the Macro i need help changing is:

strbody = "Hey," & vbNewLine & vbNewLine & _
"TEXT TEXT TEXT TEXT TEXT." & vbNewLine & _
"Thanks," & vbNewLine & _
"Ron Wiesler"


Here is the entire macro:


Sub Mail_Every_Worksheet()
Dim sh As Worksheet
Dim wb As Workbook
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim TempFilePath As String
Dim TempFileName As String
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

strbody = "Hey," & vbNewLine & vbNewLine & _
"TEXT TEXT TEXT TEXT TEXT." & vbNewLine & _
"Thanks," & vbNewLine & _
"Ron Wiesler"

TempFilePath = Environ$("temp") & "\"

If Val(Application.Version) < 12 Then
'You use Excel 97-2003
FileExtStr = ".xls": FileFormatNum = -4143
Else
'You use Excel 2007-2013
FileExtStr = ".xlsm": FileFormatNum = 52
End If

With Application
.ScreenUpdating = False
.EnableEvents = False
End With

Set OutApp = CreateObject("Outlook.Application")

For Each sh In ThisWorkbook.Worksheets
If sh.Range("G2").Value Like "?*@?*.?*" Then

sh.Copy
Set wb = ActiveWorkbook

TempFileName = "Sheet " & sh.Name & " of " _
& ThisWorkbook.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss")

Set OutMail = OutApp.CreateItem(0)

With wb
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum

On Error Resume Next
With OutMail
.To = sh.Range("G2").Value
.CC = sh.Range("I2").Value
.BCC = ""
.Subject = "Excel Help"
.Body = strbody
.Attachments.Add wb.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
On Error GoTo 0

.Close savechanges:=False
End With

Set OutMail = Nothing

Kill TempFilePath & TempFileName & FileExtStr

End If
Next sh

Set OutApp = Nothing

With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub