Outlook font issue in VBA

Question

0.00/5 (No votes)

See more:

Hello
We have below code to trigger Outlook email:

t OL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(olmailitem)
                
With EmailItem
    .To = sMyOpsStaffNO
    '.cc = sMyCaseworkerid
                
    .Subject = "RESTRICTED CLIENT"
                
    .body = "Thank you for your Referral Request logged as:= " & sMyCCESMno & Chr(10) _
    & "Case Reference Number:= " & sMyCaseNumber & Chr(10) _
    & "Employer ERN:= " & sMyERN & Chr(10) _
    & "Employer Name:= " & sMyERNName & Chr(10) & Chr(10) _
    & "I have identified that the referral submitted contained an error therefore we are rejecting the referral sent to us for the following reason(s):-" & Chr(10) & Chr(10) _
    & "###########################################################################################################" & Chr(10) _
    & sResp & Chr(10) _
    & "###########################################################################################################" & Chr(10) & Chr(10) _
    & "Many Thanks" & Chr(10) & Chr(10) & Chr(10) & Chr(10) _
    & uName & Chr(10) _
    & "Payment and Services Customer Service Team" & Chr(10) _
    & "E_M_A_I_L_B_L_O_C_K"

    '''.Display
    '''.Save
    EmailItem.DeleteAfterSubmit = True
    EmailItem.send
    
End With

This email triggers with font size 1638. We checked with the outlook setting and the font size is set to 12.

Not sure why this is getting changed with email triggered through above code.

Please advise.

thanks
Parag

What I have tried:

We checked the Outlook font size setting.

Posted 19-Aug-19 1:09am

Member 14562483

Updated 19-Aug-19 2:48am

Add a Solution

3 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Answer 1 · 2019-08-19T01:19:00

Above piece of VBA code is not related to font size, unless you did not show the part which changes it. You should change default font for email: Change the default font or text color for email messages - Outlook[^]

For html body, read this: excel vba - Change HTML email body font type and size in VBA - Stack Overflow[^]

Patrice T · Answer 2 · 2019-08-19T02:26:00

Quote:
This email triggers with font size 1638. We checked with the outlook setting and the font size is set to 12.

This piece of code send plain text Email, thus don't try to set a font type or size. There is simply not font setting associated with a text mail message, the setting is app related.
The size of font depend on client settings.
You need to use HTML Email in order to allow a font type and size setting on your side.

raddevus · Answer 3 · 2019-08-19T02:49:00

It sounds as if you are saying the problem is that you do not change the font but for some reason it gets set to 1638 point font. Is that the problem?

It is interesting that you set only one byte -- Chr(10) -- for the CrLf -- on a Windows OS. Normally Windows OSes expect 2 byte line ending Chr(10) & Chr(13) CrLf.
Why aren't you using Constants.vbCrLf?
I mention this because it could be that there is an odd offset byte thing since Outlook probably expects the document body to be UTF-8 and that is defined as: "UTF-8 is a variable width character encoding capable of encoding all 1,112,064[1] valid code points in Unicode using one to four 8-bit bytes."*

When you see these odd things in text it is often this type of thing : where a system attempts to make sense of a stream of bytes but cannot.

As a test, maybe remove the Chr(10) entirely and see what you get. If you can attempt to replace them with Constants.vbCrLf.

*from UTF-8 - Wikipedia[^]

Outlook font issue in VBA

3 solutions

Solution 1

Solution 2

Solution 3

Add your solution here

Preview 0