如何在Outlook中自動打開來自特定人員的所有傳入電子郵件

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

立即分享：

評論被關閉。