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

[e_a_g_l_e_p_i]

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

 

[e_a_g_l_e_p_i]

Not sure what you are talking about, can you give me instruction on how to do what you suggest?

 

[Vincenzo]

Not sure about Outlook 2010, but in 2016 go to View/View Settings/Other Settings

 

[Diane Poremsky]

In 2010, hit the zoom button or hold ctrl as you roll the mouse wheel.

 

[e_a_g_l_e_p_i]

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?

 

[Diane Poremsky]

Office 365 lets you set the zoom level - and there is a macro for older versions.

Adjusting Outlook's Zoom Setting in Email

What to do if your fonts are tiny (or huge) or the font used for the reply shrinks yet Microsoft Outlook shows they are using a normal size font (such as 10 or 12 pt).

www.slipstick.com

 

[e_a_g_l_e_p_i]

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

 

[Diane Poremsky]

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

 

[e_a_g_l_e_p_i]

Thank you very much, I will give it a go. Crossing fingers......lol

 

[e_a_g_l_e_p_i]

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

 

[e_a_g_l_e_p_i]

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

 

[e_a_g_l_e_p_i]

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?

 

[Diane Poremsky]

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.

 

[e_a_g_l_e_p_i]

Diane,
I followed your tutorial for the zoom macro and I get the following error message

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,

Any idea what may have caused this error?

Thanks

 

[Diane Poremsky]

That's not a macro security error. Do you know which line it errors on?

 

[e_a_g_l_e_p_i]

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

 

[Diane Poremsky]

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.

 

[Diane Poremsky]

BTW, I'm using the last sample you posted.

 

[e_a_g_l_e_p_i]

Thanks, will do

 

[e_a_g_l_e_p_i]

Okay this is what I get now.

here is the code with the highlighted error line