Hoe kan ik ervoor zorgen dat alle inkomende e-mails van een bepaald persoon automatisch worden geopend in Outlook?

In uw dagelijks werk kunnen er in Outlook talloze e-mails binnenkomen, waardoor u belangrijke berichten van een specifieke afzender gemakkelijk over het hoofd ziet. Om te voorkomen dat u ooit nog een cruciale e-mail van die persoon mist, kunt u ervoor zorgen dat deze automatisch worden geopend zodra ze binnenkomen in Outlook. In dit artikel introduceer ik een VBA-code die alle e-mails van een bepaalde afzender direct opent bij ontvangst.

Automatisch alle inkomende e-mails van een specifiek persoon openen met VBA-code

---

Automatisch alle inkomende e-mails van een specifiek persoon openen met VBA-code

Om e-mails van een bepaald persoon automatisch te openen, helpt de volgende VBA-code u daarbij. Volg deze stappen:

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Dubbelklik in het venster Microsoft Visual Basic for Applications op ThisOutlookSession in het deelvenster Project1 (VbaProject.OTM) om de module te openen, en kopieer en plak vervolgens de volgende code in de lege module.

VBA-code: Automatisch alle e-mails van een specifiek persoon openen:

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

Opmerking: In de bovenstaande code kunt u het e-mailadres van de afzender aanpassen naar uw eigen adres.

3. Sluit dit codovenster vervolgens af met Opslaan en sluiten. Start Outlook opnieuw op, zodat de code actief wordt. Vanaf nu worden alle e-mails van de door u opgegeven afzenders automatisch geopend. Zie de schermafbeelding hieronder: