Wie öffnet man alle eingehenden E-Mails einer bestimmten Person automatisch in Outlook?

In unserem täglichen Arbeitsalltag treffen oft zahlreiche E-Mails in Outlook ein – und dabei könnten wichtige Nachrichten einer bestimmten Person leicht übersehen werden. Um sicherzustellen, dass Sie keine wichtige E-Mail dieses Absenders verpassen, können Sie Outlook so einrichten, dass diese Nachrichten beim Eintreffen automatisch geöffnet werden. In diesem Artikel stelle ich Ihnen einen VBA-Code vor, mit dem alle E-Mails eines bestimmten Absenders automatisch geöffnet werden.

Öffnen Sie alle eingehenden E-Mails einer bestimmten Person automatisch mithilfe eines VBA-Codes

---

Öffnen Sie alle eingehenden E-Mails einer bestimmten Person automatisch mithilfe eines VBA-Codes

Um E-Mails einer bestimmten Person automatisch zu öffnen, unterstützt Sie der folgende VBA-Code. Gehen Sie dazu wie folgt vor:

1. Halten Sie die ALT + F11-Tasten gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Doppelklicken Sie im Fenster Microsoft Visual Basic for Applications im Bereich ThisOutlookSession unter Project1 (VbaProject.OTM), um das Modul zu öffnen, und fügen Sie anschließend den folgenden Code in das leere Modul ein.

VBA-Code: Automatisches Öffnen aller E-Mails einer bestimmten Person:

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

Hinweis: Im obigen Code können Sie die Absenderadressen durch Ihre eigenen ersetzen.

3. Schließen Sie anschließend das Code-Fenster mit „Speichern und Schließen“. Starten Sie Outlook neu, damit der Code wirksam wird. Ab sofort werden alle E-Mails, die von den von Ihnen angegebenen Absendern eingehen, automatisch geöffnet. Siehe Screenshot: