Comment ouvrir automatiquement tous les emails entrants d'une personne spécifique dans Outlook ?
Dans notre travail quotidien, il est possible que de nombreux emails arrivent dans notre Outlook, et dans ce cas, vous pourriez ignorer certains emails importants provenant d'une personne en particulier. Pour éviter de manquer des emails importants de quelqu'un, vous pouvez configurer Outlook pour qu'il ouvre automatiquement ces emails lorsqu'ils arrivent. Dans cet article, je vais vous présenter un code VBA pour ouvrir tous les emails provenant d'un expéditeur spécifique.
Ouvrir automatiquement tous les emails entrants d'une personne spécifique avec un code VBA
Ouvrir automatiquement tous les emails entrants d'une personne spécifique avec un code VBA
Pour ouvrir automatiquement les emails d'une personne spécifique, le code VBA suivant peut vous aider, veuillez procéder comme suit :
1. Maintenez les touches ALT + F11 enfoncées 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 Project1(VbaProject.OTM) pour ouvrir le module, puis copiez et collez le code suivant dans le module vide.
Code VBA : Ouvrir automatiquement tous les emails 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 modifier 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 maintenant, lorsque des emails arriveront des personnes spécifiées, ils s'ouvriront automatiquement. Voir capture d'écran :
Meilleurs outils de productivité pour Office
Dernière nouvelle : Kutools pour Outlook lance une version gratuite !
Découvrez le tout nouveau Kutools pour Outlook avec plus de100 fonctionnalités incroyables ! Cliquez pour télécharger dès maintenant !
📧 Automatisation des emails : Réponse automatique (disponible pour POP et IMAP) / Programmation de l’envoi des emails / CC/BCC automatique selon des règles lors de l’envoi / Transfert automatique (Règle avancée) / Ajout automatique de la salutation / Fractionnement automatique des emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujet et autres critères / Supprimer les emails en double / Recherche Avancée / Organiser les dossiers...
📁 Pièces jointes Pro:Enregistrer par lot / Détachement par lot / Compression par lot / Enregistrer automatiquement/ Détachement automatique/Compression automatique...
🌟 Magie de l’interface : 😊Davantage d’emojis beaux et sympas / Recevez une alerte en cas d’email important / Réduisez Outlook au lieu de le fermer...
👍 Fonctions en un clic : Répondre à tous avec pièces jointes / Anti-phishing emails / 🕘Afficher le fuseau horaire de l’expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier: Ajouter des contacts en lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire...
Utilisez Kutools dans la langue de votre choix– prend en charge l’anglais, l’espagnol, l’allemand, le français, le chinois, et plus de40 autres langues !
