Outlook Mail body font size problem

elsuji · Apr 20th 2020

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.

Dogaru · Apr 20th 2020

You have closed the font code , the text you want to format needs to be inside <font>your text here </font>, I have modified your code , try it

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 & "" 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 </font>
 
 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

elsuji · Apr 20th 2020

Dear Dogaru,

It is not working. Once enter code as per your suggestion i am getting error. It is not accepting the code

Dogaru · Apr 20th 2020

Give it a try now

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
"<font style=""font-family:Cambria; font-size:12pt;""<font><font style=""font-family:Cambria; font-size:12pt;""</font>"
 
 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

elsuji · Apr 20th 2020

Dear Dogaru,

i am getting the bellow error when using above code

elsuji · Apr 20th 2020

Dear Dogaru,

This problem is only for font size 12. all other sizes are updating properly

Dogaru · Apr 21st 2020

try adding this code to the paragraph you want to change the font size

Code

<p style="font-size:12px">your paragraph</p>

elsuji · Apr 21st 2020

can you pls modify the line

Dogaru · Apr 21st 2020

I'm at work now , I will do it when I have a minute.

elsuji · Apr 21st 2020

ok. Waiting for your reply

Outlook Mail body font size problem

Participate now!

Share