Change HTML email body font type and size in VBA

Question

I have a VBA script that that generates and email when a VBA button is pushed in a given worksheet    The script currently generates the email in a relatively small font  I was wondering if there is a way to set the font to Calibri  and the text sive to exactly 11    Here is the current VBA script   Private Sub CommandButton1 Click    Dim OutApp As Object Dim OutMail As Object Dim strbody As String Dim strUser As String Dim signature As String Dim sTo As String Dim sCC As String      For To field     Set emailRng   Worksheets  Send Email   Range  D3 I6        For Each cl In emailRng         sTo   sTo  amp       amp  cl Value     Next      sTo   Mid sTo  2        For CC field     Set emailRngCC   Worksheets  Send Email   Range  D8 I11        For Each cl In emailRngCC         sCC   sCC  amp       amp  cl Value     Next      sCC   Mid sCC  2    Set OutApp   CreateObject  Outlook Application   Set OutMail   OutApp CreateItem 0      With OutMail      Display     End With         signature   OutMail HTMLBody       strbody     lt FONT SIZE   3 gt Good Morning  lt p gt We have completed our main aliasing process for today   All assigned firms are complete   Please feel free to respond with any questions  lt p gt Thank you        With OutMail          SentOnBehalfOfName               To   sTo          CC   sCC          BCC               Subject    Data Morning Alias Process - COMPLETE           HTMLBody   strbody  amp  signature          Display     End With End Sub   I know that this portion of the code   strbody     lt FONT SIZE   3 5 gt Good Morning  lt p gt We have completed our main aliasing   is the portion that relates to the email body text size  But a setting of 3 is to small  and a setting of 4 is too big  So I was just wondering if there is some way I can set the font to be exactly size 11  and the text to be formatted as Calibri   Thank you

User · Answer

FYI I did a little research as well and if the name of the font-family you want to apply contains spaces  as an example I take Gill Alt One MT Light   you should write it this way     strbody    lt BODY style    amp  Chr 34   amp   font-family Gill Alt One MT Light   amp  Chr 34   amp    gt    amp  YOUR TEXT  amp    lt  BODY gt

User · Answer

Set texts with different sizes and styles  and size and style for texts from cells   with Range   Sub EmailManuellAbsenden    Dim ghApp As Object Dim ghOldBody As String Dim ghNewBody As String  Set ghApp   CreateObject  Outlook Application   With ghApp CreateItem 0   To   Range  B2    CC   Range  B3    Subject   Range  B4    GetInspector Display  ghOldBody    htmlBody   ghNewBody     lt font style   font-family  Calibri  font-size  11pt    font gt    amp       lt font style   font-family  Arial  font-size  14pt    gt Arial Text 14 lt  font gt    amp     Range  B5    amp    lt br gt    amp     Range  B6    amp    lt br gt    amp       lt font style   font-family  Chiller  font-size  21pt    gt Ciller 21 lt  font gt    amp   Range  B5     htmlBody   ghNewBody  amp  ghOldBody   End With  End Sub  Fill B2 to B6 with some letters for testing    lt font style   font-family  Calibri  font-size  15pt    font gt     works for all Range Objekts

User · Answer

I did a little research and was able to write this code   strbody     lt BODY style font-size 11pt font-family Calibri gt Good Morning  lt p gt We have completed our main aliasing process for today   All assigned firms are complete   Please feel free to respond with any questions  lt p gt Thank you  lt  BODY gt     apparently by setting the  font-size 11pt  instead of setting the font size  lt font size 5 gt   It allows you to select a specific font size like you normally would in a text editor  as opposed to selecting a value from 1-7 like my code was originally    This link from simpLE MAn gave me some good info

[excel] Change HTML email body font type and size in VBA

Examples related to excel

Examples related to vba

Examples related to outlook