如何在 Outlook 中自動開啟來自特定寄件人的所有郵件？

在我們的日常工作中，Outlook 常會收到大量電子郵件，導致您可能錯過某位特定寄件人寄來的重要訊息。為確保不錯過這些關鍵郵件，您可以設定讓來自該寄件人的郵件一抵達 Outlook 就自動開啟。本文將介紹一段 VBA 程式碼，可自動開啟所有來自指定寄件人的郵件。

使用 VBA 程式碼自動開啟來自特定人員的所有來信

---

使用 VBA 程式碼自動開啟來自特定人員的所有來信

若要自動開啟來自特定人員的郵件，下列 VBA 程式碼可協助您達成，請依下列步驟操作：

1. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 在 Microsoft Visual Basic for Applications 視窗中，於 Project 1 (VbaProject.OTM) 窗格內雙擊 ThisOutlookSession 以開啟模組，然後將下列程式碼複製並貼上至空白模組中。

VBA 程式碼：自動開啟來自特定人員的所有郵件：

Public WithEvents GInboxFolder As Outlook.Folder
Public WithEvents GInboxItems As Outlook.Items
Private Sub Application_Startup()
    Set GInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set GInboxItems = GInboxFolder.Items
End Sub
Private Sub GInboxItems_ItemAdd(ByVal Item As Object)
    Dim xMailItem As Outlook.MailItem
    Dim xSenders As String
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    xSenders = "yy@addin99.com;applemiemie@163.com"
    If InStr(xSenders, xMailItem.SenderEmailAddress) = 0 Then Exit Sub
    xMailItem.Display
End Sub

注意：在上述程式碼中，您可以將寄件人的電子郵件地址替換為您自己的地址。

3. 接著，請儲存並關閉此程式碼視窗，然後重新啟動 Outlook 以套用設定。此後，只要指定寄件人寄來郵件，系統將自動開啟所有相關郵件！詳情請參閱截圖：