Как автоматически открывать все входящие письма от определенного человека в Outlook?

Author Xiaoyang Last modified 2025-08-26

В нашей повседневной работе, возможно, во входящих сообщениях Outlook накапливается множество писем, и в такой ситуации вы можете пропустить важные письма от конкретного отправителя. Чтобы избежать пропуска важных писем от кого-то, можно настроить их автоматическое открытие при поступлении в ваш Outlook. В этой статье я представлю VBA-код для автоматического открытия всех писем от определенного отправителя.

Автоматически открывайте все входящие письма от определенного человека с помощью VBA-кода

Автоматически открывайте все входящие письма от определенного человека с помощью VBA-кода

Чтобы автоматически открывать письма от конкретного человека, следующий VBA-код может помочь вам, выполните следующие действия:

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications дважды щелкните ThisOutlookSession в панели Project1(VbaProject.OTM), чтобы открыть модуль, затем скопируйте и вставьте следующий код в пустой модуль.

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, чтобы код вступил в силу. С этого момента, когда будут поступать письма от указанных вами отправителей, они будут автоматически открываться. Смотрите скриншот: