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

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