Dear Team,
I am writing code for send outlook mail. In that i am updating mail body font style as Cambria and font size is 12.
My code is
Code
Set OutMail = OutApp.CreateItem(0)
toList = Cells(i, 4) 'gets the recipient from col B
'CCList = Cells(i, 8) & ", " & Cells(i, 9) & ", " & Cells(i, 10)
eSubject = "Calibration remainder for your " & Cells(i, 5) & " Batching Plant "
eBody = "<font style=""font-family:Cambria; font-size:12pt;""/font> Dear Sir, <br><br>" _
& "Greetings from " & "<b> SCHWING STETTER! </b><br><br>" _
& "Your " & "<b>" & Worksheets("Data").Cells(i, "E").Value & "</b>" _
& " Batching Plant calibration certificate is going to expire soon ( within " _
& "<b>" & Worksheets("Data").Cells(i, "I").Value & "</b>" & " days ).<br><br>" _
& "Plant Last calibration done date is " & "<b>" & Worksheets("Data").Cells(i, "G").Value & "</b>" _
& " and next due date is " & "<b>" & Worksheets("Data").Cells(i, "H").Value & "</b>" & ".<br><br>" _
& "Kindly do the calibration on time for accurate batching.<br><br>" & S
On Error Resume Next
With OutMail
.To = toList
.CC = CCList
.BCC = ""
.Subject = eSubject
.HTMLBody = eBody
.Display ' ********* Creates draft emails. Comment this out when you are ready
'.Send '********** UN-comment this when you are ready to go live
End With
Display More
when i am running this code font size is showing only 11 instead of 12.
Can any one help me to correct the problem.