Adjusting Outlook's Zoom setting: Fonts are tiny in messages and replies

Set the zoom level using VBA

You can use VBA to force the zoom level in Outlook 2007, Outlook 2010, or when using Word as the email editor. Don't forget to set the desired zoom level in this line:
wdDoc.Windows(1).Panes(1).View.Zoom.Percentage = 150
To use the macro:

1. Set your macro security to Low.
2. Open the VB editor using Alt+F11
3. Expand Project1 to show ThisOutlookSession
4. Paste the macro in ThisOutlooksession
5. Set a reference to Microsoft Word in Tools, References
6. Click in the Application_Startup macro and press the Run button to kick start it without restarting Outlook.

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

Related Posts:

1. VBA Macro to disable Outlook 2010's No Subject warning message.

   Disable Outlook 2010's No Subject Warning using VBA
2. We're seeing complaints that some parts of a message have characte

   Large Fonts in Messages Sent by Outlook
3. 

   To Change the Look of Outlook Replies
4. 

   Understanding Fonts and the +Body Style

Pages: 1 2