如何使用 Outlook VBA 始終以自定義縮放級別打開電子郵件

Outlook解決方案 2025 年 9 月 29 日
立即分享：

默認情況下，Outlook 電子郵件以 100% 的縮放級別打開。 如果您希望始終以自定義縮放級別（例如 150%）打開電子郵件，您可以使用本文中分享的方法。

其實，在我之前的文章“如何在 Outlook 中調整縮放級別”，您可以學習在閱讀窗格和消息窗口中調整縮放級別的方法。 但是，那篇文章中介紹的方法並不能使自定義縮放級別固定，即保持永久。 下次它會自動恢復到默認設置。 因此，如果您希望始終以自定義縮放級別打開電子郵件，則可以使用以下方法。

始終使用 Outlook VBA 以自定義縮放級別打開您的電子郵件

始終以自定義縮放級別打開您的電子郵件

  1. 首先，您需要像往常一樣啟動 Outlook 程式。
  2. 然後，在顯示的 Outlook 窗口中，按“Alt + F11”快捷鍵。
  3. 隨後，您將進入 VBA 編輯器窗口，您可以在其中訪問“ThisOutlookSession”項目。 只需在左側找到它並雙擊打開它。
  4. 接下來，將下面列出的 VBA 代碼複製到此項目窗口中。
Private WithEvents objInspectors As Outlook.Inspectors
Private WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objMail_Open(Cancel As Boolean)
    Dim objMailDocument As Word.Document
 
    'When opening an email which is not a new mail
    If Len(Trim(objMail.Subject)) <> 0 Then
       Set objMailDocument = objMail.GetInspector.WordEditor
       'Change "150" as per your desired zoom level
       objMailDocument.Windows(1).Panes(1).View.Zoom.Percentage = 150
    End If
End Sub

VBA 代碼 - 在自定義縮放級別中打開您的電子郵件

  1. 之後，您應該簽署此代碼。
  • 點擊工具欄中的“工具”按鈕。
  • 然後，從下拉列表中選擇“數字簽名...”選項。電子簽名
  • 接下來，在彈出的對話框中，啟用數字證書。
  1. 最後，退出目前的「Microsoft Visual Basic for Applications」窗口，然後重新啟動 Outlook 應用程式以啟動新的 VBA 專案。
  2. 從那時起，每次當您打開一封不是新郵件的電子郵件時，該電子郵件都會以您的自定義縮放級別顯示，如下圖所示：以自定義縮放級別打開的電子郵件

保護前景免受崩潰

Outlook 數據文件相當容易受到損壞。 因此，保護您的 Outlook 數據是一項非常艱鉅的任務。 Outlook 數據文件周圍存在各種威脅，包括電子郵件傳播的病毒、硬件故障、人為錯誤和軟件問題。 為了在您的 PST 文件受到損壞時盡快搶救它，建議保留一個強大的修復工具，例如 DataNumen Outlook Repair。 它能夠 維修展望 問題並有效地恢復最大的 Outlook 數據。

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 損壞的mdf 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM

立即分享：

評論被關閉。