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

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

Открывать все входящие электронные письма от определенного человека автоматически с кодом VBA

Открывать все входящие электронные письма от определенного человека автоматически с кодом VBA

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

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. В Microsoft Visual Basic для приложений окно, дважды щелкните Эта сессия Outlook из Проект1 (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 = ";"
    If InStr(xSenders, xMailItem.SenderEmailAddress) = 0 Then Exit Sub
    xMailItem.Display
End Sub

документ открытые электронные письма отправителя 1

Внимание: В приведенном выше коде вы можете изменить адреса отправителей на свои собственные.

3. Затем сохраните и закройте это окно кода. Перезапустите Outlook, чтобы код вступил в силу, с этого момента, когда электронные письма прибывают от указанных вами лиц, все они будут открываться автоматически. Смотрите скриншот:

документ открытые электронные письма отправителя 2