如何使用 VBA 自定義 Outlook 便箋窗口的大小和位置

立即分享:

當您打開便箋時,便箋窗口將始終以小尺寸打開,並且位於 Outlook 窗口的左上角附近。 您可能想要自定義註釋窗口的大小和位置。 現在,本文將幫助您實現這一目標。

預設情況下,Outlook 筆記視窗總是以較小的尺寸開啟。然而,大多數情況下,筆記內容都比較長。這時,您就需要手動調整視窗大小。除了視窗大小之外,視窗位置也是一個令人困擾的問題。筆記視窗通常位於左上角附近。但大多數用戶實際上希望視窗居中顯示。總之,很多用戶都希望能夠自訂筆記視窗的大小和位置。因此,本文將分享一種實作方法。

註釋窗口的默認大小和位置

自定義 Outlook 便箋窗口的大小和位置

  1. 首先,啟動Outlook應用程序。
  2. 然後,按“ Alt + F11”以觸發Outlook VBA編輯器。
  3. 在隨後的“Microsoft Visual Basic for Applications”窗口中,將以下代碼複製到“ThisOutlookSession”項目中。
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objNoteInspector As Outlook.Inspector

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

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

'When a Note window opens
Private Sub objNoteInspector_Activate()
    With objNoteInspector
         .WindowState = olNormalWindow
         '".Height" and ".Width" used to customize the size of Note Window
         .Height = 300
         .Width = 600
         '".Left" and ".Top" used to specify the position of Note Window
         .Left = 200
         .Top = 200
    End With
End Sub

VBA 代碼 - 自定義 Outlook 便箋窗口的大小和位置

備註:根據代碼中的註釋修改“Height”、“Width”、“Left”和“Top”的值。

  1. 之後,將遊標移至「Application_Startup」子程式中。
  2. 最後,按“F5”鍵激活新宏。
  3. 從現在開始,每次打開筆記時,其窗口都會以自定義大小和自定義位置顯示,如下圖所示。自定義註釋窗口的大小和位置

解決令人不安的 Outlook 問題

您可能遇到過各種各樣的 Outlook 問題,從無關緊要的小錯誤訊息到災難性的 Outlook 資料遺失。面對這些問題,您會採取什麼措施?說實話,一些小問題可以透過停用第三方加載項、以安全模式啟動或重建郵件設定檔等方法輕鬆解決。但是,如果問題嚴重的話,情況就複雜了。 Outlook損壞,你必須求助於修復工具。 您可以先嘗試內部實用程序。 如果失敗了,不要灰心。 是時候調用更強大的外部工具了,比如 DataNumen Outlook Repair.

作者簡介:

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

立即分享:

評論被關閉。