Cambiar color cuerpo e-mail con macro

Estoy utilizando este macro para adjuntar un fichero excel y enviar e-mail.
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = ThisWorkbook.Sheets("COMUNICADO").Range("TOENVIOSOCIO").Value
.CC = ThisWorkbook.Sheets("COMUNICADO").Range("CCENVIOSOCIO").Value
.BCC = ""
.Subject = ThisWorkbook.Sheets("COMUNICADO").Range("ASUNTOENVIOSOCIO").Value
.Body = "Apreciado socio," & vbNewLine & vbNewLine & ThisWorkbook.Sheets("COMUNICADO").Range("CUERPOENVIOSOCIO") & vbNewLine & vbNewLine & "Pasos a seguir:" & vbNewLine & " 1. Abra el archivo adjunto." & vbNewLine & " 2. Rellene sólo las celdas que están en amarillo." & vbNewLine & " 3. Envíe sus previsiones haciendo 'Click' en enviar ." & vbNewLine & "¡Atención! Si desea guardar en su PC la promoción, hágalo después de enviarnos los datos." & vbNewLine & vbNewLine & "Saludos cordiales," & vbNewLine & vbNewLine & ThisWorkbook.Sheets("COMUNICADO").Range("clubocomercial")
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
End Sub
El tema es que el color del body en el e-mail tendría que se este:
With Selection.Font
.Color = -6291456
.TintAndShade = 0
End With
EL PROBLEMA ES QUE NO SE COMO INTEGRAR ESTO ULTIMO EN LA MACRO, NO ME ACTUA.
Gracias anticipadas.