Comment déplacer automatiquement les e-mails d’expéditeurs inconnus vers un dossier spécifique dans Outlook ?

Dans votre travail quotidien, vous recevez probablement de nombreux e-mails d’expéditeurs inconnus absents de votre dossier Contacts — des messages qui peuvent être indésirables, voire malveillants. Dans ce cas, comment configurer Outlook pour déplacer automatiquement ces courriers vers un dossier spécifique plutôt que dans la Boîte de réception ?

Déplacer les e-mails provenant d’expéditeurs inconnus vers un dossier spécifique en créant une règle

Déplacer les e-mails provenant d’expéditeurs inconnus vers un dossier spécifique en appliquant du code VBA

---

Déplacer les e-mails provenant d’expéditeurs inconnus vers un dossier spécifique en créant une règle

En réalité, vous pouvez créer une règle pour déplacer automatiquement les e-mails provenant d’expéditeurs inconnus vers un dossier dédié. Voici la marche à suivre :

1. Créez un nouveau dossier sous la Boîte de réception pour y regrouper les e-mails provenant d’expéditeurs inconnus, comme illustré dans la capture d’écran suivante :

2. Cliquez ensuite sur Accueil > Règles > Gérer les règles et les 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 l’option Appliquer la règle aux messages que je reçois dans la section Commencer à partir d’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 s’affiche ; cliquez sur le bouton Oui, voir la capture d’écran :

6. Dans la boîte de dialogue suivante, cochez l’option le déplacer vers le dossier spécifié dans la zone de liste Étape 1 : Sélectionner une ou plusieurs actions, puis cliquez sur le texte lié spécifié. Dans la boîte de dialogue Règles et alertes qui s’ouvre, indiquez le dossier vers lequel vous souhaitez déplacer les e-mails. Voir la capture d’écran :

7. Cliquez sur le bouton OK, puis cliquez de nouveau sur Suivant. Dans la boîte de dialogue Y a-t-il des exceptions ?, cochez l’option sauf si l’expéditeur figure dans le Carnet d'adresses spécifié dans la zone de liste Étape 1 : Sélectionner une ou plusieurs exceptions, puis cliquez sur le texte lié spécifié. Une boîte Ajouter Liste d'adresses s’ouvre ; sélectionnez un dossier 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. Saisissez un nom pour la règle dans la zone de texte Étape 1 : Spécifier un nom pour cette règle, puis cochez l’option Activer cette règle dans la section Étape 2 : Configurer la règle. Voir la capture d’écran :

9. Cliquez ensuite sur les boutons Terminer et OK pour fermer les boîtes de dialogue. Désormais, dès qu’un e-mail provient d’un expéditeur inconnu, il sera automatiquement déplacé vers le dossier spécifié.

---

Déplacer les e-mails provenant d’expéditeurs inconnus vers un dossier spécifique en appliquant du code VBA

La méthode ci-dessus vous semble peut-être fastidieuse ? Optez alors pour un code VBA et gagnez du temps !

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 : Déplacement automatique des e-mails provenant 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. Enregistrez ensuite le code, fermez la fenêtre et redémarrez Outlook pour que les modifications prennent effet. Désormais, les e-mails provenant d’expéditeurs inconnus seront automatiquement déplacés vers le dossier « Unknown » — voir la capture d’écran :

Remarque : Le dossier Unknown est créé automatiquement dès qu’un e-mail inconnu arrive. Vous pouvez remplacer le nom « Unknown » par un autre dans le script.