VBA changes the default font size in Outlook - How to fix?

**Vacheron23** · 10-07-2022, 01:41 AM

Hello Everyone,

I have a VBA code which creates an outlook email containing specific information. The issue is that despite having a default set font in Outlook (Calibri size 11) the font generated through the VBA is Calibri size 10.
Additionally, is there a way to add bullets within the text in VBA?

Below is the code, any feedback is highly appreciated!

Sub Mail_Outlook_With_Signature_Html_1()

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

strbody = "Good day Everyone, " & _
"Please see below details: " & _
"Time: 15:00 Table: 1 PAX: 8 " & _
"Allergies = None "

With OutMail
.Display
.To = ""
.CC = ""
.BCC = ""
.Subject = "Reservation"
.HTMLBody = strbody & " " & .HTMLBody

End With

On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

**Sintek** · 10-07-2022, 03:39 AM

Please Login or Register  to view this content.

**Vacheron23** · 10-11-2022, 12:58 AM

Hi sintek,

Unfortunately the font still comes up with size 10 with your code as well.
In the meanwhile though, I've found this which does exactly what I need it to do:

I appreciate the help nevertheless, Thank you!

Sub Mail_Outlook_With_Signature_Html_1()

Dim OutApp As Object
Dim OutMail As Object
Dim StrBody As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

StrBody = "Good day Everyone, " & _
"Please see below details " & _
"Time: 15:00 Table: 1 PAX: 8 " & _
"Allergies: None "

With OutMail
.Display
.To = ""
.CC = ""
.BCC = ""
.Subject = "Reservation"
.HTMLBody = "<BODY style=font-size:11pt;font-family:Calibri>" & StrBody & " " & .HTMLBody

End With

On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

**Sintek** · 10-11-2022, 02:04 AM

Unfortunately the font still comes up with size 10 with your code as well

Strange...Works on my side...But all good...Glad you got it sorted...

VBA changes the default font size in Outlook - How to fix?

LinkBack

Thread Tools

Rate This Thread

Display

VBA changes the default font size in Outlook - How to fix?

Re: VBA changes the default font size in Outlook - How to fix?

Re: VBA changes the default font size in Outlook - How to fix?

Re: VBA changes the default font size in Outlook - How to fix?

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] Default Font changes to other size and type

[SOLVED] Clear All vs. default font size

[SOLVED] Change default font and font size on COMMENTS in cells

Default Font size in comment boxes ?

[SOLVED] How do I set Excel comments default font size

[SOLVED] My tabs' font size is smaller - how do I restore default size?

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions