Comment déplacer des emails provenant d'expéditeurs inconnus vers un dossier spécifique dans Outlook ?
Dans votre travail quotidien, vous pouvez recevoir de nombreux emails provenant d'expéditeurs inconnus qui ne sont pas enregistrés dans votre dossier Contacts. Il peut s'agir de courriers indésirables ou malveillants. Dans ce cas, vous souhaitez déplacer automatiquement ces emails vers un dossier spécifique plutôt que dans la boîte de réception. Comment pourriez-vous résoudre cette tâche dans Outlook ?
Déplacer des emails d'expéditeurs inconnus vers un dossier spécifique en créant une règle
Déplacer des emails d'expéditeurs inconnus vers un dossier spécifique en appliquant du code VBA
Déplacer des emails d'expéditeurs inconnus vers un dossier spécifique en créant une règle
En fait, vous pouvez créer une règle pour déplacer automatiquement les emails provenant d'expéditeurs inconnus vers un dossier spécifique. Veuillez procéder comme suit :
1. Créez un nouveau dossier sous le dossier Boîte de réception qui contiendra les emails provenant d'expéditeurs inconnus, comme le montre la capture d'écran suivante :
2. Ensuite, cliquez sur Accueil > Règles > Gérer les règles et alertes, voir la capture d'écran :
3. Dans la boîte de dialogue Règles et alertes, cliquez sur Nouvelle règle sous l'onglet Règles de messagerie, voir la capture d'écran :
4. Cliquez ensuite sur le bouton OK pour accéder à l'Assistant Règle, puis sélectionnez Appliquer la règle aux messages que je reçois dans la section Démarrer avec une règle vierge, voir la capture d'écran :
5. Cliquez ensuite sur le bouton Suivant. À cette étape, ne sélectionnez aucune option et cliquez directement sur le bouton Suivant. Une boîte d'avertissement apparaît, veuillez cliquer sur le bouton Oui, voir la capture d'écran :
6. Dans la boîte de dialogue suivante, cochez l'option Déplacez-le vers le dossier spécifié dans la liste Étape 1 : Sélectionner une action, puis cliquez sur le texte lié spécifié. Dans la boîte de dialogue Règles et alertes ouverte, spécifiez le dossier où vous souhaitez déplacer les emails, voir la capture d'écran :
7. Cliquez sur OK, puis continuez en cliquant sur Suivant. Dans cette boîte de dialogue Y a-t-il des exceptions, cochez l'option Sauf si l'expéditeur est dans le carnet d'adresses spécifié dans la liste Étape 1 : Sélectionner des exceptions, puis cliquez sur le texte lié spécifié. Une boîte Ajouter une liste d'adresses apparaîtra, sélectionnez un dossier de contacts contenant les contacts que vous souhaitez exclure, voir la capture d'écran :
8. Cliquez ensuite sur le bouton Ajouter, puis sur Suivant pour accéder à la dernière boîte de dialogue de l'assistant. Tapez un nom de règle dans la zone de texte Étape 1 : Spécifier un nom pour cette règle, et cochez l'option Activer cette règle dans la section Étape 2 : Configurer les options de la règle. Voir la capture d'écran :
9. Cliquez ensuite sur Terminer et OK pour fermer les boîtes de dialogue. Dès maintenant, lorsque des emails proviennent d'expéditeurs inconnus, ils seront automatiquement déplacés vers le dossier spécifique.
Assistant de messagerie IA dans Outlook : Réponses plus intelligentes, communication plus claire (magie en un clic !) GRATUIT
Rationalisez vos tâches quotidiennes dans Outlook avec l'Assistant de messagerie IA de Kutools pour Outlook. Cet outil puissant apprend de vos anciens emails pour offrir des réponses intelligentes et précises, optimiser le contenu de vos emails et vous aider à rédiger et affiner vos messages sans effort.
Cette fonctionnalité prend en charge :
- Réponses intelligentes : Obtenez des réponses élaborées à partir de vos conversations passées — personnalisées, précises et prêtes à être envoyées.
- Contenu amélioré : Affinez automatiquement votre texte d'email pour plus de clarté et d'impact.
- Rédaction sans effort : Fournissez simplement des mots-clés, et laissez l'IA faire le reste, avec plusieurs styles d'écriture.
- Extensions intelligentes : Développez vos idées avec des suggestions sensibles au contexte.
- Résumé : Obtenez des aperçus concis des longs emails instantanément.
- Rayonnement mondial : Traduisez vos emails dans n'importe quelle langue facilement.
Cette fonctionnalité prend en charge :
- Réponses intelligentes aux emails
- Contenu optimisé
- Brouillons basés sur des mots-clés
- Extension de contenu intelligente
- Résumé d'email
- Traduction multilingue
Le meilleur de tout, cette fonctionnalité est entièrement gratuite pour toujours ! Ne tardez pas — téléchargez dès maintenant l'Assistant de messagerie IA et profitez-en
Déplacer des emails d'expéditeurs inconnus vers un dossier spécifique en appliquant du code VBA
La méthode ci-dessus peut être fastidieuse pour vous. Ici, vous pouvez appliquer un code pour gérer cela aussi rapidement que possible.
1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Dans la fenêtre Microsoft Visual Basic for 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 : Déplacement automatique des emails d'expéditeurs inconnus vers un dossier spécifique :
Public WithEvents MailItems As Outlook.Items
Private Sub Application_Startup()
Set MailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub MailItems_ItemAdd(ByVal item As Object)
Dim xSenderEmailAddress As String
Dim xContactItems As Outlook.Items
Dim xContactItem As ContactItem
Dim I As Long
Dim xFilter As String
Dim xTargetFolder As Folder
Dim xContactFolder As Folder
Dim xStore As Store
Dim xInboxFlds As Folders
Dim xSubFolder As Folder
Dim xFound As Boolean
On Error Resume Next
If item.Class = olMail Then
xSenderEmailAddress = item.SenderEmailAddress
End If
For Each xStore In Outlook.Application.Session.Stores
Set xContactItems = xStore.GetDefaultFolder(olFolderContacts).Items
For I = 3 To 1 Step -1
xFilter = "[Email" & I & "Address] = " & xSenderEmailAddress
Set xContactItem = xContactItems.Find(xFilter)
If TypeName(xContactItem) <> "Nothing" Then Exit For
Next
Next
If xContactItem Is Nothing Then
Set xInboxFlds = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders
xFound = False
For Each xSubFolder In xInboxFlds
If xSubFolder.Name = "Unknown" Then
xFound = True
Set xTargetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders("Unknown")
Exit For
End If
Next
If xFound = False Then
Set xTargetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add("Unknown")
End If
item.Move xTargetFolder
End If
End Sub
3. Ensuite, enregistrez le code et fermez la fenêtre de code, puis redémarrez Outlook pour que le code prenne effet. Dès maintenant, lorsque des emails proviennent d'expéditeurs inconnus, ils seront automatiquement déplacés vers le dossier Inconnu, voir la capture d'écran :
Remarque : Le dossier Inconnu sera créé automatiquement lorsqu'il y aura des emails inconnus entrants. Vous pouvez changer le nom du dossier « Inconnu » par un autre dans le script.
Meilleurs outils de productivité pour Office
Dernières nouvelles : Kutools pour Outlook lance une version gratuite !
Découvrez la toute nouvelle version GRATUITE de Kutools pour Outlook avec plus de70 fonctionnalités incroyables, à utiliser POUR TOUJOURS ! Cliquez pour télécharger maintenant !
📧 Automatisation des emails : Réponse automatique (Disponible pour POP et IMAP) / Programmation d'envoi d'emails / CC/BCC automatique par règle lors de l'envoi d'un email / Transfert automatique (Règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujets et autres / Supprimer les emails en double / Recherche avancée / Organiser les dossiers...
📁 Pièces jointes Pro : Enregistrement par lot / Détachement par lot / Compression par lot / Enregistrement automatique / Détachement automatique / Compression automatique...
🌟 Magie de l'interface : 😊Plus d'emojis jolis et cool / Vous rappeler lorsque des emails importants arrivent / Réduire Outlook au lieu de fermer...
👍 Merveilles en un clic : Répondre à tous avec pièces jointes / Emails anti-phishing / 🕘Afficher le fuseau horaire de l'expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier : Ajouter des contacts par lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d'anniversaire...
