Top IT Providers

Outlook 2010 Zoom Glitch

I recently ran into an issue where a client asked to have the default zoom size increased when reading emails in Outlook 2010. Although Outlook 2010 has both a zoom slider and a zoom button when reading emails, this feature does not hold as a default. I have checked around and my conclusion is that this is a glitch as there is no way to fix this natively in Outlook. Interestingly enough it works fine in Outlook 2007 and 2010 Beta.

 

So here is a little VBA script that addresses this zoom issue. You are more than welcome to use it if the situation arises. Hopefully MS will fix this glitch. I have included both the script and the directions to add it.

 

Script:

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 = 140

End Sub

 

Instructions:

1. While in Outlook 2010 press Alt-F11 to invoke the VBA Editor
2. On the left side locate ThisOutlookSession (you may have to open up Project1)
3. Double click on ThisOutlookSession
4. On the right window of the screen copy and paste the code above
5. Then click Tools -> References
6. In the scroll box scroll down and select Microsoft Word 14.0 Object Library
7. Click OK and make sure this is now added
8. Click on Save
9. Quit VBA Editor Alt-Q
10. Now you should be back in Outlook
11. Select File -> Options -> Trust Center
12. Click the Trust Center Setting button
13. Select Marco Settings
14. Select Enable All Marcos (Not recommended…)
15. Click OK twice
16. Close and exit Outlook
17. Restart and open an email

 

You will notice the last line of code “wdDoc.Windows(1).Panes(1).View.Zoom.Percentage = 140” The number is the zoom percentage. You can change this if you would like and test it out. See which one works best for you.

Also if your organization has a class 2 or class 3 digital certificate you can digitally sign the macro. With a digitally signed macro select “notification for digitally signed macros…” in step 14 above.

 

One Response to “Outlook 2010 Zoom Glitch”