Outlook Zoom VBA

Question

我想将当前的电子邮件缩放到130％。

根据this forum thread，Outlook MVP表示不可能。我能做的最好就是弹出缩放对话框：

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

但那是2009年的2007年展望。

有人知道Outlook 2013中是否可行？如果是这样，怎么样？

Answer 1

如果要使用活动检查器执行此操作，可以使用以下命令：

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

如果您需要使用预览窗格，可以使用SafeExplorer中的Redemption对象执行此操作：

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