Hi All

I have the below macro that runs from excel sheet and generates an email... However I need to have the font of the email body to Calibri, Size 11 and Color
to Blue.

Sub SendMail()
Dim l As Long
Dim objApp As Object
Dim objMail As Object

l = ActiveCell.Row

Set objApp = CreateObject("Outlook.Application")
Set objMail = objApp.CreateItem(0)
With objMail
    .SentOnBehalfOfName = Cells(l, "F").Text
    .To = Cells(l, "G").Text
    .CC = Cells(l, "H").Text
    .Subject = "PR#" & Cells(l, "B").Text & "_" & "Assesment ID # " & Cells(l, "C").Text & "_AA Required "
        .htmlBody = "Hello     " & Cells(l, "I").Text & vbCrLf & "<br><br>" & _
                "The vendor profile completed in eRC  indicates that we will be sharing PHI with this vendor.Therefore, the Master Service Agreement which includes PPA/GL language is required." & vbCrLf & "<br><br>" & _
                "We do not see the copy of the contract is available in Emptoris. Request you to please provide the projected completion date of the same if it is not yet completed, else forward a copy of the signed contract to us in case it is completed in next 5 working days." & vbCrLf & "<br><br>" & _
                "Thanks you," & "<br><br>Regards<br> Oversight Team." & "<br>[email protected] <br>" & vbCrLf & ""
     .display
    '.send
End With

Set objMail = Nothing
Set objApp = Nothing

End Sub
Can some help me in tweeting this macro

Regards
Kiran <umar