Outlook 2010:设置阅读邮件的默认缩放级别

Outlook 2010:设置阅读邮件的默认缩放级别

在 Outlook 2010 中打开邮件时(不使用阅读窗格),您可以按住控制键并向上滚动鼠标滚轮来放大邮件,但每次打开邮件时都必须执行此操作。

有没有办法设置邮件的默认缩放级别?例如,将每封邮件的缩放级别默认设置为 150%。

否则,其他我怎样才能使阅读消息时的默认文本变大?(无需更改操作系统中的 DPI 设置

答案1

这是 Outlook 2010 的正常行为;它不保留缩放调整。您唯一的选择是创建在启动时运行的宏或使用加载项进行缩放控制。

以下是如何添加 VBA 以在应用程序启动时设置缩放级别。

  1. 将宏安全性设置为低。
  2. Alt使用+打开 VB 编辑器F11
  3. 展开 Project1 以显示ThisOutlookSession
  4. 将宏粘贴到ThisOutlooksession
  5. 在“工具”、“参考”中设置对 Microsoft Word 的引用
  6. 单击Application_Startup宏并按下Run按钮即可启动它,而无需重新启动 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

注意:倒数第二行是设置缩放百分比的地方。将 更改150为所需的百分比。

来源 -调整 Outlook 电子邮件中的缩放设置

答案2

我找到了一个名为放大它会在功能区中添加一个按钮,用于保存您打开的所有邮件的缩放比例(您也可以随时更改它)。唯一的缺点是它是一种付费工具。

相关内容