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

Author: Xiaoyang Last Modified: 2025-08-06

在我們的日常工作當中，可能有很多郵件進入到我們的 Outlook 中，在這種情況下，您可能會忽略來自某個特定寄件人的重要郵件。為了避免錯過某些重要郵件，您可以設置郵件在進入您的 Outlook 時自動打開。本文將介紹一段 VBA 程式碼，用於自動打開來自特定寄件人的所有郵件。

使用 VBA 程式碼自動打開來自特定寄件人的所有郵件

使用 VBA 程式碼自動打開來自特定寄件人的所有郵件

要自動打開來自特定寄件人的郵件，以下 VBA 程式碼可以幫助您，請按照以下步驟操作：

1. 按住 ALT + F11 鍵以打開 Microsoft Visual Basic for Applications 視窗。

2. 在 Microsoft Visual Basic for Applications 視窗中，雙擊 Project1(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 以使程式碼生效，從現在開始，當指定寄件人的郵件到達時，它們將會自動打開。請參見截圖：