如何在 Outlook 中自动打开来自特定人员的所有传入电子邮件

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

Outlook 不提供自动打开来自特定人员的所有传入电子邮件的功能。 因此，本文将向您展示这样一种方法。

确保您不想错过来自极其重要人物的任何电子邮件，例如您上级的电子邮件。 在这种情况下，您可以使用 Outlook 规则在此类电子邮件到达您的邮箱时显示特定警报。 除此之外，您可能还希望 Outlook 自动打开此类电子邮件。 虽然 Outlook 规则不支持，但您仍然可以通过 Outlook VBA 实现它。 现在，在下文中，我们将公开一段 VBA 代码来帮助您。 请继续阅读以获取它。

自动打开来自特定人员的所有传入电子邮件

  1. 首先，请通过以下方式访问 Outlook VBA 编辑器：“如何在 Outlook 中运行 VBA 代码“。
  2. 随后，打开“ThisOutlookSession”项目并将以下 VBA 代码复制到其中。
Public WithEvents objInbox As Outlook.Folder
Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set objInboxItems = objInbox.Items
End Sub

'Occurs when incoming emails arrive in Inbox
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim strSenders As String
    Dim varSenders As Variant
    Dim i As Long
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Change the specific persons
       strSenders = "bob_black@datanumen.com; shelly@datanumen.com; kim@datanumen.com"
 
       varSenders = Split(strSenders, ";")
 
       'Open the emails from specific persons
       For i = 0 To UBound(varSenders)
           If objMail.SenderEmailAddress = varSenders(i) Then
              objMail.Display
              Exit For
           End If
       Next
    End If
End Sub

VBA 代码 - 自动打开来自特定人员的所有传入电子邮件

  1. 之后，重启 Outlook 应用程序以激活此宏。
  2. 现在，你可以试试看。 只需将来自特定发件人的电子邮件移动到收件箱。 立即，此电子邮件将在其自己的窗口中自动打开。自动打开来自特定人员的电子邮件

解决烦人的 Outlook 问题

如果您使用 Outlook 已有数十年，很可能遇到过各种各样的错误和问题。例如，启动 Outlook 时，您可能会收到一条错误消息，提示 Outlook PST 文件无法访问。此错误通常表示 PST 文件已损坏。在这种情况下，您需要…… 修复 PST 文件。 如果您只使用收件箱修复工具，可能会非常棘手。 然而，如果您求助于更强大、更可靠的工具，例如 DataNumen Outlook Repair，任务会容易得多。

作者简介：

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

立即分享：

评论被关闭。