Comment déplacer des e-mails d'expéditeurs inconnus vers un dossier spécifique dans Outlook? 

Dans votre travail quotidien, vous pouvez recevoir de nombreux e-mails provenant d'expéditeurs inconnus qui ne sont pas enregistrés dans votre dossier Contacts. Il peut s'agir d'e-mails indésirables ou malveillants.Dans ce cas, vous souhaitez déplacer automatiquement ces e-mails vers un dossier spécifique au lieu de la boîte de réception. Comment pourriez-vous résoudre ce travail dans Outlook?

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

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

---

Déplacer les e-mails 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 e-mails d'expéditeurs inconnus vers un dossier spécifique, procédez comme suit:

1. Créez un nouveau dossier sous le dossier Boîte de réception qui placera les e-mails provenant d'expéditeurs inconnus, comme illustré ci-dessous:

2. Puis clique Accueil > Règles > Gérer les règles et les alertes, voir capture d'écran:

3. Dans le Règles et alertes boîte de dialogue, cliquez sur Nouvelle règle sous le Règles de messagerie onglet, voir capture d'écran:

4. Et cliquez sur OK bouton pour aller à la Assistant de règlecliquez Appliquer la règle au message que je reçois Option de Partir d'une règle vierge zone de section, voir capture d'écran:

5. Puis clique Suivant bouton, dans cette étape, veuillez ne sélectionner aucune option, puis cliquez sur Suivant bouton directement, une boîte d'avertissement apparaît, veuillez cliquer Oui bouton, voir capture d'écran:

6. Et dans la boîte de dialogue suivante, cochez déplacez-le vers le dossier spécifié option dans la Étape 1: Sélectionnez une ou plusieurs actions zone de liste, puis cliquez sur le texte lié spécifié, et en plein air Règles et alertes boîte de dialogue, spécifiez le dossier dans lequel vous souhaitez déplacer les e-mails, voir capture d'écran:

7Cliquez sur OK et continuez à cliquer Suivant bouton, dans ce Y a-t-il des exceptions boîte de dialogue, vérifier sauf si l'expéditeur est dans le carnet d'adresses spécifié option dans la Étape 1: Sélectionnez les exceptions zone de liste, puis cliquez sur le texte lié spécifiéEt un Ajouter une liste d'adresses apparaîtra, sélectionnez un dossier de contacts contenant les contacts que vous souhaitez sauf, voir capture d'écran:

8. Puis clique Ajouter une détection de fuite de données bouton, puis cliquez sur Suivant pour accéder à la dernière boîte de dialogue de l'assistant, saisissez un nom de règle dans le champ Étape 1: spécifiez un nom pour cette règle zone de texte et cochez Activez cette règle Option de Étape 2: règle de configuration section des options. Voir la capture d'écran:

9. Et puis cliquez Récapitulatif et Ok boutons pour fermer les boîtes de dialogue. Désormais, lorsque les e-mails provenant d'expéditeurs inconnus, ils seront automatiquement déplacés vers le dossier spécifique.

---

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

La méthode ci-dessus peut être gênante pour vous, ici, vous pouvez appliquer un code pour y faire face aussi rapidement que vous le pouvez.

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 la Projet1 (VbaProject.OTM) volet pour ouvrir le mode, puis copiez et collez le code suivant dans le module vide.

Code VBA: déplacez automatiquement les e-mails 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 et fermez la fenêtre de code, puis redémarrez Outlook pour que le code prenne effet. Désormais, lorsque les e-mails provenant d'expéditeurs inconnus, ils seront automatiquement déplacés vers le dossier Inconnu, voir capture d'écran:

Notes: Le Inconnu Le dossier sera créé automatiquement lorsqu'il y aura des e-mails inconnus entrants. Vous pouvez changer le nom du dossier "Unknow»À d'autres dans le script.