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è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 !
