
在 Outlook 2010 中開啟郵件(不使用閱讀窗格)時,您可以按住 Control 並向上滾動滑鼠滾輪來放大郵件,但每次開啟郵件時都必須執行此操作。
有沒有辦法設定訊息的預設縮放等級?例如,將每個訊息的縮放等級預設為 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
我發現了一個名為放大這會在功能區中添加一個按鈕來保存您打開的所有訊息的縮放(您也可以隨時更改它)。唯一的缺點是它是一個付費工具。