如何使用 Outlook VBA 限制同时打开的电子邮件数量

展望解决方案 2025 年 9 月 29 日
立即分享：

同时打开大量邮件会导致 Outlook 过载，甚至崩溃。因此，建议限制同时打开的邮件数量。本文将教你如何使用 Outlook VBA 实现这一点。

Outlook 在过载时很容易崩溃，例如同时打开太多电子邮件时。 因此，您最好一次只打开有限的电子邮件。 尽管 Outlook 本身不支持此功能，但您可以通过以下方式轻松实现。

使用 Outlook VBA 限制同时打开的电子邮件数量

限制同时打开的电子邮件数量

  1. 首先，启动 Outlook 程序。
  2. 然后您需要访问 VBA 编辑器。 您可以切换到“开发人员”选项卡并点击“Visual Basic”按钮。 或者只需在主屏幕中按“Alt + F11”键。
  3. 在随后出现的“Microsoft Visual Basic for Applications”窗口中，您可以找到并打开“ThisOutlookSession”项目。
  4. 接下来，您应该将下面的 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

VBA代码——限制同时打开的邮件数量

  1. 之后，您应该签署这个宏。
  • 点击工具栏中的“工具”按钮。
  • 接下来从下拉列表中选择“数字签名”选项。
  • 在弹出的对话框中，按照屏幕提示完成。
  1. 稍后您可以更改宏设置以允许数字签名的宏。
  2. 最后，您可以重启 Outlook 应用程序来激活宏。
  3. 从现在开始，每次当你打算打开第六封邮件时，你都会收到一条消息，如截图所示：警告
  4. 此外，以前的电子邮件将自动关闭。

检索有价值的 Outlook 数据

不可否认，Outlook 具有许多卓越的功能。 但是，这并不意味着它完美无缺。 它仍然无法摆脱伤害。 各种因素都可能导致 Outlook 损坏。 因此，为了 恢复 Outlook 数据更容易，您应该定期备份您的 PST 文件。 另外，一个质量好的维修工具也是必不可少的，比如 DataNumen Outlook Repair.

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 修复 mdf 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com

立即分享：

评论被关闭。