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 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 Finition 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 du 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: Les 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.
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.