Outlook 2010 reading pane option - want to permanently adjust the zoom setting.

Jcoy asked on
Greetings, I know that there are a number of ways to adjust the zoom on the reading pane in outlook 2010. But how do i make the change permanent so that it does not go back to 100%.

There are two ways to temporarily increase or decrease the zoom level in the Microsoft OutlookReading Pane(Reading Pane: A window in Outlook where you can preview an item without opening it. To display the item in the Reading Pane, click the item.).

Do one of the following:

  • Use the Zoom control at the bottom of the Outlook window.

  • If you are using a mouse with a wheel control, click in the Reading Pane, press CTRL, and roll the scroll wheel. Rolling the wheel away from you makes the contents larger, rolling the wheel toward you makes the contents smaller.

 Note    The zoom affects only the current item that is previewed. When you select another item or folder, the Reading Pane returns to the default 100% size.

thank you.

***Post moved by the moderator to the appropriate forum category.***

51 people had this question

Abuse history

The answered status icon Answer
Hassan El-Meligy replied on

While you are in outlook do the following

  1. Press Alt-F11 to invoke the VBA Editor
  2. On the left side locate ThisOutlookSession
  3. Double click on ThisOutlookSession
  4. On the right window of the screen copy and paste the following code
  5. Click on Save
  6. Quit VBA Editor Alt-Q

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_Quite()
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 = 140

End Sub

Business Information and Infrastructure Architect.
Be the first person to mark this helpful

Abuse history