Comment faire pour qu’Outlook ouvre automatiquement tous les e-mails entrants provenant d’une personne spécifique ?

Dans notre travail quotidien, de nombreux e-mails affluent dans notre boîte Outlook, au point que vous risquez de passer à côté de messages importants envoyés par une personne précise. Pour ne jamais manquer un courriel essentiel d’un contact particulier, vous pouvez configurer Outlook afin qu’il ouvre automatiquement ces messages dès leur réception. Dans cet article, je vous présente un code VBA qui permet d’ouvrir automatiquement tous les e-mails provenant d’un expéditeur spécifique.

Ouvrir automatiquement tous les e-mails entrants d’une personne spécifique à l’aide d’un code VBA

---

Ouvrir automatiquement tous les e-mails entrants d’une personne spécifique à l’aide d’un code VBA

Pour ouvrir automatiquement les e-mails provenant d’une personne spécifique, le code VBA suivant vous sera utile. Voici la procédure à suivre :

1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Dans la fenêtre Microsoft Visual Basic pour Applications, double-cliquez sur ThisOutlookSession dans le volet Projet1 (VbaProject.OTM) pour ouvrir le module, puis copiez-collez le code suivant dans le module vide.

Code VBA : Ouvrir automatiquement tous les e-mails d’une personne spécifique :

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

Remarque : Dans le code ci-dessus, vous pouvez remplacer les adresses des expéditeurs par les vôtres.

3. Ensuite, sauvegardez et fermez cette fenêtre de code. Redémarrez Outlook pour que le code prenne effet. Dès lors, tous les e-mails provenant des personnes que vous avez spécifiées s’ouvriront automatiquement. Voir la capture d’écran :