'Outlook Zoom VBA

I want to zoom the current email to 130%.

According to this forum thread an Outlook MVP said it was not possible. That the best I could do is pop-up the zoom dialog:

Outlook.Application.ActiveInspector.CommandBars.ExecuteMso ("ZoomDialog")

But that was in 2009 with outlook 2007.

Does anyone know if it's possible in Outlook 2013? If so, how?

vba outlook

Solution 1:^[1]

If you want to do that with an active inspector, you can use the following:

 set Document = Application.ActiveInspector.WordEditor
 Document.Windows.Item(1).View.Zoom.Percentage = 130

If you need to work with the preview pane, you can do that using the SafeExplorer object in Redemption (I am its author):

 set sExplorer = CreateObject("Redemption.SafeExplorer")
 sExplorer.Item = Application.ActiveExplorer
 set Document = sExplorer.ReadingPane.WordEditor
 Document.Windows.Item(1).View.Zoom.Percentage = 130

Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution	Source
Solution 1

'Outlook Zoom VBA

Solution 1:[1]

Sources

Related Questions

Solution 1:^[1]