asked on

How do I change font within email generated by vba?

Dim objOL As Object
Dim objMail As Object
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(olMailItem)

strBody = "Attached, please find a copy of the " & NameofCompanyBolded & _
" letter for your review, and an electronic version of the Questionnaire. A paper copy of these documents is also being sent to you." & vbCrLf & vbCrLf & _
"Please let me know if you have any questions."

objMail.To = strTo
objMail.CC = strCC
objMail.BCC = strBcc
objMail.Subject = strSubject

'Display Email
objMail.Display

objMail.body = strBody & objMail.body & vbCrLf & AfterSignatureCCs

I closed this question prematurely without the following question having been answered.

Questions:
1) How do I set the font of the email text to Calibri 11 pt.?

Nick67

Unless you go with .HTMLBody,you can't
http://www.pcreview.co.uk/forums/specify-font-name-face-using-vba-macro-word-t3845020.html

Jeffrey Coachman

<No Points wanted>

HTML like this:
This is Calibri Text 7 point

Will produce what you are asking for: Calibri font at 7 points

Jeffrey Coachman

So to do a complete block of text with line breaks, , would start out like this:

This is Calibri Text 7 point on line 1 This is Calibri Text 7 point on line 2

newbie46

ASKER

boaq2000,
Where does the This is Calibri Text 7 point &
strBody & objMail.body & " " & AfterSignatureCCs

ASKER CERTIFIED SOLUTION

Jeffrey Coachman

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

SOLUTION

Nick67

membership