![Outlook 2010:设置阅读邮件的默认缩放级别](https://linux22.com/image/1421556/Outlook%202010%EF%BC%9A%E8%AE%BE%E7%BD%AE%E9%98%85%E8%AF%BB%E9%82%AE%E4%BB%B6%E7%9A%84%E9%BB%98%E8%AE%A4%E7%BC%A9%E6%94%BE%E7%BA%A7%E5%88%AB.png)
在 Outlook 2010 中打开邮件时(不使用阅读窗格),您可以按住控制键并向上滚动鼠标滚轮来放大邮件,但每次打开邮件时都必须执行此操作。
有没有办法设置邮件的默认缩放级别?例如,将每封邮件的缩放级别默认设置为 150%。
否则,其他我怎样才能使阅读消息时的默认文本变大?(无需更改操作系统中的 DPI 设置)
答案1
这是 Outlook 2010 的正常行为;它不保留缩放调整。您唯一的选择是创建在启动时运行的宏或使用加载项进行缩放控制。
以下是如何添加 VBA 以在应用程序启动时设置缩放级别。
- 将宏安全性设置为低。
- Alt使用+打开 VB 编辑器F11
- 展开 Project1 以显示
ThisOutlookSession
- 将宏粘贴到
ThisOutlooksession
- 在“工具”、“参考”中设置对 Microsoft Word 的引用
- 单击
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
为所需的百分比。
答案2
我找到了一个名为放大它会在功能区中添加一个按钮,用于保存您打开的所有邮件的缩放比例(您也可以随时更改它)。唯一的缺点是它是一种付费工具。