Is it possible it set the fonts used to read incoming mail

Status
Not open for further replies.

e_a_g_l_e_p_i

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
POP3
It seems that all mail I get with outlook 2010 comes in so small, is it possible to set the fonts and size for incoming mail in Outlook 2010? Attached is an example of how small the fonts are on most of my incoming emails


example.jpg
 
Not sure what you are talking about, can you give me instruction on how to do what you suggest?
 
Not sure about Outlook 2010, but in 2016 go to View/View Settings/Other Settings
 
That is what I have been doing but it seems that I shouldn't have to on every email. Are there any stable versions of Office besides Office 365 that have any options to use my fonts for incoming emails?
 
Office 365 lets you set the zoom level - and there is a macro for older versions.

 
I've been using the ctrl button and wheel on my mouse to zoom incoming emails. I was hoping that I could set them so I wouldn't have to zoom manually on each email. I've not used macros before and even though your video tutorial looks very easy to follow I'm a bit hesitant to try it. If I do try it and it works what should I expect outlook 2010 to do to incoming emails? will it allow me to chose a font size for incoming emails or does the macro just set that font to a certain size?

Thanks for your help
 
The macro sets it to a specific zoom - the "default" is 200%, but you can use any %. It will be the same for all messages though.

Const MsgZoom = 200
 
Thank you very much, I will give it a go. Crossing fingers......lol
 
Diane,
another thing I noticed is I type a email in my fonts and size and then when I go to send folder and open a email I just typed the fonts are very small, just as most of the emails I get everyday. I haven't tried the macro yet just want to make sure I understand how to do it before I try. Can you explain why when my fonts are correct when I type the email but once it goes to the sent folder the fonts are so small I can't even read it, it all seems strange to me

Thanks
Ron
 
I followed the tutorial on the macros and was able to get it to work from what I can tell. I have 2 questions, nowhere did I see "Const MsgZoom = 200" this is what I saw in VBA "View.Zoom.Percentage = 150" is that the same thing? here is everything in my VBA. If that is the zoom feature I adjust I can adjust it until everything is a good size for me? each time I adjust the zoom do I have to click on reference,run and make sure I chose those 2 options

Option Explicit
Dim WithEvents objInspectors As Outlook.Inspectors
Dim WithEvents objOpenInspector As Outlook.Inspector
Dim WithEvents objMailItem As Outlook.MailItem


Private Sub Application_Startup()
Set objInspectors = Application.Inspectors
End Sub




Private Sub Application_Quit()
Set objOpenInspector = Nothing
Set objInspectors = Nothing
Set objMailItem = Nothing
End Sub


Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If Inspector.CurrentItem.Class = olMail Then
Set objMailItem = Inspector.CurrentItem
Set objOpenInspector = Inspector

End If
End Sub

Private Sub objOpenInspector_Close()

Set objMailItem = Nothing
End Sub


Private Sub objOpenInspector_Activate()

Dim wdDoc As Word.Document
Set wdDoc = objOpenInspector.WordEditor
wdDoc.Windows(1).Panes(1).View.Zoom.Percentage = 150

End Sub


As always thank you very much
Ron
 
It's been a long time since I posted this thread and I haven't seen a reply to my last question. By chance did you not see my last post?
 
No, I didn't see it or somehow missed it.

this is what I saw in VBA "View.Zoom.Percentage = 150" is that the same thing?
Yes, it is. I don't know why I said 200% was the default. :)

If that is the zoom feature I adjust I can adjust it until everything is a good size for me? each time I adjust the zoom do I have to click on reference,run and make sure I chose those 2 options
I think it will work when you edit it, but I'm in the habit of clicking in Application_Start and hitting run, just to be sure.

You can replace the 150 with any value you want.
 
Diane,
I followed your tutorial for the zoom macro and I get the following error message
0156.jpg


I made sure that the macro security settings were to allow all macros, then I pasted your code in the VBA and made sure I clicked on word and redemption in references. A screenshot below,

0157.jpg


Any idea what may have caused this error?

Thanks
 
That's not a macro security error. Do you know which line it errors on?
 
Not sure all it does is give me that VBA error message.

The code I used is the following, is it correct?

Option Explicit
Dim WithEvents objInspectors As Outlook.Inspectors
Dim WithEvents objOpenInspector As Outlook.Inspector
Dim WithEvents objMailItem As Outlook.MailItem


Private Sub Application_Startup()
Set objInspectors = Application.Inspectors
End Sub




Private Sub Application_Quit()
Set objOpenInspector = Nothing
Set objInspectors = Nothing
Set objMailItem = Nothing
End Sub


Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If Inspector.CurrentItem.Class = olMail Then
Set objMailItem = Inspector.CurrentItem
Set objOpenInspector = Inspector

End If
End Sub

Private Sub objOpenInspector_Close()

Set objMailItem = Nothing
End Sub


Private Sub objOpenInspector_Activate()

Dim wdDoc As Word.Document
Set wdDoc = objOpenInspector.WordEditor
wdDoc.Windows(1).Panes(1).View.Zoom.Percentage = 150

End Sub
 
It's working here without error....

In the VBE, Go to Tools, Options and on the General tab, set it to break on all errors. That might highlight the problem line when the error comes up with a debug option.
2020-09-22_00-19-56-0000.gif
 
BTW, I'm using the last sample you posted.
 
Okay this is what I get now.
0159.jpg
0159.jpg

here is the code with the highlighted error line

0161.jpg
0161.jpg
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
D Is it possible to set up an email rule for a user based on alias address? Exchange Server Administration 3
D Is it possible to set a message as sent programatically? Outlook VBA and Custom Forms 1
D Is it possible to set a message as sent programatically? Outlook VBA and Custom Forms 1
C New pc, new outlook, is it possible to import auto-complete emailaddress Using Outlook 4
e_a_g_l_e_p_i Is it possible to have a reminder in Outlook 2021 for every 90 days Using Outlook 3
W Outlook 2016 MSI - Possible to make work with O365 modern Auth & Win7? Using Outlook 4
O Outlook - How to embed font ? (If at all possible) Using Outlook 2
S Outlook 365 Can I change the possible range of highlighting colours when writing an Outlook email? Using Outlook 1
T Outlook 2013 Possible interference by Telstra ISP with Hotmail Password Using Outlook.com accounts in Outlook 4
e_a_g_l_e_p_i Is it possible to transfer things from one calendar to another Using Outlook 2
V Is it possible to collect statistics from Outlook forms? Outlook VBA and Custom Forms 1
S Is it possible to cusstomise selectable Options in Kalander. Outlook VBA and Custom Forms 1
J Is it no longer possible to suppress Outlook 2019 Invalid Certificate name mismatch security alert via Registry? Using Outlook 1
BretAB Is it possible to add a lookup field to a Message form? Outlook VBA and Custom Forms 4
A Possible to hide ribbon with custom appointment form? Outlook VBA and Custom Forms 3
M possible to search Outlook for multiple email addresses at once? Using Outlook 1
semnaitik Is it possible to recover content from a 0KB PST file? Using Outlook 3
J Is this possible to do with a macro? Outlook VBA and Custom Forms 17
D Is it possible to automatically send an email when it is moved to a folder? Exchange Server Administration 1
T Exchange setup not possible with outlook.de username Using Outlook.com accounts in Outlook 0
H Is it possible to create a view that only show the first task in a list? Using Outlook 1
H Is It Possible to See Who Has Viewed My Calendar in Exchange? Using Outlook 2
P Is it possible to convert address book to "Auto-Complete List" (NK2)? Using Outlook 5
C in outlook 2007-Contact Group-One name have 3 mail id-its possible? Using Outlook 3
J convert .pst to .eml, how is it possible? Using Outlook 1
S Is it possible to recover a permanently deleted email from my .OST file? Using Outlook 0
M Is it possible to restore deleted webmail to server? Using Outlook 3
P Is it possible to write a macro to email to all addresses of selected contacts? Using Outlook 1
D is it possible to have both a POP and IMAP account in Outlook 2013? Using Outlook 5
C Is it possible to have contacts sync real-time between Outlook and iCloud? Using Outlook 1
P Is it possible to sort emails by COUNT of "From" field? Using Outlook 2
Justo Horrillo It's possible to modify the behaviour of the conversation option? Using Outlook 2
S Possible to link to ics file without importing? Using Outlook 4
P Outlook 2003 - possible to recreate corrupt account? Using Outlook 3
FirefIy Marking message read only if replied to the message or Ctrl+Q. Possible? Using Outlook 1
O Script to move emails to a folder based on various possible keywords Outlook VBA and Custom Forms 11
A Is it possible to remove the word Categories: from task list views? Using Outlook 2
B Is it possible with Outlook form Outlook VBA and Custom Forms 5
Steve Jacobs Possible to configure TNEF options based on *sender*? Exchange Server Administration 3
S Is it possible to backup Outlook.com/Outlook 2013 Email & Calendar info? Using Outlook.com accounts in Outlook 3
O Is it possible to go from BCM Office 13 back to BCM Office 2010? BCM (Business Contact Manager) 1
E Show field from account on contact form - possible? BCM (Business Contact Manager) 1
A Possible to modify people preview window? Using Outlook 1
T OL BCM 2007 - Possible to migrate SQL Server Express 2012 ? BCM (Business Contact Manager) 2
V Name of attachment in replies (HTML) - possible?? Using Outlook 12
C Is it possible: List of URL fields BCM (Business Contact Manager) 0
D Frequently used response short cut possible macro Using Outlook 1
mrje1 Assigned Categories keep getting deleted in mail, bug? How to fix if possible? Using Outlook 5
Commodore Exporting all contacts to VCF files possible? Using Outlook 4
M I'd like to alter the appointment balloons. Possible? Using Outlook 6

Similar threads

Back
Top