Comment ouvrir automatiquement tous les e-mails entrants d'une personne spécifique dans Outlook?
Dans notre travail quotidien, peut-être que de nombreux e-mails arrivent dans notre Outlook, dans ce cas, vous pouvez ignorer certains e-mails importants d'une personne spécifique. Pour éviter de manquer certains e-mails importants de quelqu'un, vous pouvez ouvrir automatiquement les e-mails lorsque vous arrivez dans Outlook. Dans cet article, je présenterai un code VBA pour ouvrir tous les e-mails provenant d'un expéditeur spécifique.
Ouvrez automatiquement tous les e-mails entrants d'une personne spécifique avec le code VBA
Ouvrez automatiquement tous les e-mails entrants d'une personne spécifique avec le code VBA
Pour ouvrir automatiquement les e-mails d'une personne spécifique, le code VBA suivant peut vous aider, procédez comme suit:
1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. Dans le Microsoft Visual Basic pour applications fenêtre, double-cliquez Cette session Outlook du Projet1 (VbaProject.OTM) volet pour ouvrir le mode, puis copiez et collez le code suivant dans le module vide.
Code VBA: ouverture automatique de 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 = ";"
If InStr(xSenders, xMailItem.SenderEmailAddress) = 0 Then Exit Sub
xMailItem.Display
End Sub
Notes: Dans le code ci-dessus, vous pouvez modifier les adresses des expéditeurs par les vôtres.
3. Ensuite, enregistrez et fermez cette fenêtre de code. Redémarrez Outlook pour que le code prenne effet, à partir de maintenant, lorsque les e-mails provenant des personnes que vous avez spécifiées, ils seront tous ouverts automatiquement. Voir la capture d'écran:
Meilleurs outils de productivité bureautique
Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook
🤖 Assistant de messagerie IA: E-mails professionnels instantanés avec la magie de l'IA : un clic pour des réponses géniales, un ton parfait, une maîtrise multilingue. Transformez l’emailing sans effort ! ...
📧 Email Automation: Absent du bureau (disponible pour POP et IMAP) / Programmer l'envoi d'e-mails / Auto CC/BCC par règles lors de l'envoi d'un e-mail / Transfert automatique (règles avancées) / Ajouter un message d'accueil automatique / Divisez automatiquement les e-mails multi-destinataires en messages individuels
(I.e. Email Management: Rappel facile des e-mails / Bloquer les e-mails frauduleux par sujets et autres / Supprimer les e-mails en double / Recherche Avancée / Consolider les dossiers
(I.e. Pièces jointes Pro: Sauvegarde par lots / Détachement par lots / Compression par lots / Enregistrement automatique / Détachement automatique / Compression automatique
???? Magie de l'interface: 😊Plus d'émojis jolis et cool / Boostez votre productivité Outlook avec des vues à onglets / Réduire Outlook au lieu de fermer
???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes / E-mails anti-hameçonnage / 🕘Afficher le fuseau horaire de l'expéditeur
👩🏼🤝👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer les rappels d'anniversaire
infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.