如何限制使用Outlook VBA同時打開的電子郵件數量

Outlook解決方案 2025 年 9 月 29 日

同時打開許多電子郵件可能會使Outlook超載，從而導致Outlook崩潰。因此，建議限制同時打開的電子郵件數量。這個post 將教您如何使用Outlook VBA實現它。

過載時（例如同時打開太多電子郵件），Outlook容易崩潰。因此，您最好一次只打開有限的電子郵件。儘管Outlook本身不支持此功能，但是您可以通過以下方式輕鬆實現。

限制同時打開的電子郵件數量

從一開始tar您的Outlook程序。
然後，您需要訪問VBA編輯器。您可以轉到“開發人員”選項卡，然後單擊“ Visual Basic”按鈕。或者只需在主屏幕中按“ Alt + F11”鍵。
在隨後的“ Microsoft Visual Basic for Applications”窗口中，您可以找到並打開“ ThisOutlookSession”項目。
接下來，您應該將下面的VBA代碼複製並粘貼到該VBA項目中。

Public WithEvents objInspectors As Outlook.Inspectors

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

Private Sub objInspectors_NewInspector(ByVal objNewInspector As Inspector)
    Dim objInspector As Outlook.Inspector
    Dim i As Long
    Dim strMsg As String
    Dim nPrompt As Integer
 
    i = 0
    If objNewInspector.CurrentItem.Class = olMail Then
 
       If objInspectors.count > 5 Then
          For Each objInspector In objInspectors
              If objInspector.CurrentItem.Class = olMail Then
                 i = i + 1
              End If
          Next
 
          If i > 5 Then
             strMsg = "You're allowed to open 5 emails at the same time. The previous email is closed!"
 
             MsgBox strMsg, vbExclamation + vbOKOnly
 
             ActiveInspector.CurrentItem.Close olSave
          End If
 
      End If
    End If
End Sub