Hur flyttar jag e-postmeddelanden från okända avsändare till en specifik mapp i Outlook?

I ditt dagliga arbete kan du få många e-postmeddelanden från okända avsändare som inte sparas i mappen Kontakter. Det kan vara skräp eller skadliga e-postmeddelanden, i det här fallet vill du automatiskt flytta dessa e-postmeddelanden till en viss mapp istället för inkorgen. Hur kunde du lösa detta jobb i Outlook?

Flytta e-postmeddelanden från okända avsändare till en specifik mapp genom att skapa regel

Flytta e-postmeddelanden från okända avsändare till en specifik mapp genom att tillämpa VBA-kod

Flytta e-postmeddelanden från okända avsändare till en specifik mapp genom att skapa regel

Egentligen kan du skapa en regel för att automatiskt flytta e-postmeddelanden från okända avsändare till en specifik mapp, gör så här:

1. Skapa en ny mapp under inkorgsmappen som placerar e-postmeddelandena från okända avsändare enligt följande skärmdump:

doc flytta e-postmeddelanden från okänd 1

2. Klicka sedan Hem > regler > Hantera regler och varningar, se skärmdump:

doc flytta e-postmeddelanden från okänd 2

3. I Regler och varningar dialogrutan, klicka Ny regel under E-postregler flik, se skärmdump:

doc flytta e-postmeddelanden från okänd 3

4. och klicka OK knappen för att gå till Regelguiden, Klicka Tillämpa regel på meddelande jag får alternativ från Börja från en tom regel sektionsruta, se skärmdump:

doc flytta e-postmeddelanden från okänd 4

5. Klicka sedan Nästa välj inget alternativ i det här steget och klicka Nästa knappen direkt, en varningsruta dyker upp, klicka Ja knapp, se skärmdump:

doc flytta e-postmeddelanden från okänd 5

6. Och i nästa dialogruta, kontrollera flytta den till den angivna mappen alternativet i Steg 1: Välj åtgärder och klicka sedan på den länkade texten specificeradeoch i det öppnade Regler och varningar dialogruta, ange mappen där du vill flytta e-postmeddelandena, se skärmdump:

doc flytta e-postmeddelanden från okänd 6

7. Klicka OK och klicka på Nästa knappen, i den här Finns det några undantag dialogrutan, kontrollera utom om avsändaren finns i angiven adressbok alternativet i Steg 1: Välj undantag och klicka sedan på den länkade texten specificerade, Och en Lägg till adresslista rutan dyker upp, välj en kontaktmapp som innehåller de kontakter du vill utom, se skärmdump:

doc flytta e-postmeddelanden från okänd 7

8. Klicka sedan Lägg till knappen och klicka sedan på Nästa för att gå till den sista guiden, skriv ett regelnamn i Steg 1: Ange ett namn för denna regel textruta och markera Aktivera denna regel alternativ från Steg 2: Installationsregel alternativsektion. Se skärmdump:

doc flytta e-postmeddelanden från okänd 8

9. Och klicka sedan på Finish och Ok för att stänga dialogrutorna. Från och med nu, när e-postmeddelanden kommer från okända avsändare, flyttas de automatiskt till den specifika mappen.

Flytta e-postmeddelanden från okända avsändare till en specifik mapp genom att tillämpa VBA-kod

Kan vara ovanstående metod är besvärande för dig, här kan du tillämpa en kod för att hantera den så fort du kan.

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer dubbelklicka ThisOutlookSession från Project1 (VbaProject.OTM) rutan för att öppna läget och sedan kopiera och klistra in följande kod i den tomma modulen.

VBA-kod: Flytta e-post automatiskt från okända avsändare till en specifik mapp:

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

doc flytta e-postmeddelanden från okänd 9

3. Spara sedan koden och stäng kodfönstret och starta om Outlook så att koden träder i kraft. Från och med nu, när e-postmeddelandena kommer från några okända avsändare, flyttas de automatiskt till mappen Okänd, se skärmdump:

doc flytta e-postmeddelanden från okänd 10

Anmärkningar: Den Okänd mappen skapas automatiskt när det är inkommande okända e-postmeddelanden. Du kan ändra mappnamnet “unknow”Till andra i skriptet.