Hvordan flyttes e-mails fra ukendte afsendere til en bestemt mappe i Outlook?

I dit daglige arbejde modtager du muligvis mange e-mails fra ukendte afsendere, som ikke er gemt i mappen Kontakter. Disse kan være nogle uønskede eller ondsindede e-mails. I dette tilfælde vil du automatisk flytte disse e-mails til en bestemt mappe i stedet for indbakken. Hvordan kunne du løse dette job i Outlook?

Flyt e-mails fra ukendte afsendere til en bestemt mappe ved at oprette regel

Flyt e-mails fra ukendte afsendere til en bestemt mappe ved at anvende VBA-kode

Flyt e-mails fra ukendte afsendere til en bestemt mappe ved at oprette regel

Faktisk kan du oprette en regel for automatisk at flytte e-mails fra ukendte afsendere til en bestemt mappe, gør som følger:

1. Opret en ny mappe under indbakke-mappen, som placerer e-mails fra ukendte afsendere som vist skærmbillede vist:

doc flytter e-mails fra ukendt 1

2. Klik derefter på Home > Regler > Administrer regler og advarsler, se skærmbillede:

doc flytter e-mails fra ukendt 2

3. I Regler og advarsler dialogboksen, klik Ny regel under E-mail-regler fane, se skærmbillede:

doc flytter e-mails fra ukendt 3

4. og klik OK knappen for at gå til Regelguideklik Anvend regel på den besked, jeg modtager mulighed fra Start fra en tom regel sektionsfelt, se skærmbillede:

doc flytter e-mails fra ukendt 4

5. Klik derefter på Næste knappen, i dette trin skal du ikke vælge nogen indstilling, og klik på Næste knap direkte, vises en advarselsboks ud, klik venligst Ja knap, se skærmbillede:

doc flytter e-mails fra ukendt 5

6. Og i den næste dialogboks skal du kontrollere flyt den til den angivne mappe valgmulighed i Trin 1: Vælg handling (er) i listen, og klik derefter på den sammenkædede tekst specificeretog i åbnet Regler og advarsler dialog, skal du angive den mappe, hvor du vil flytte e-mails til, se skærmbillede:

doc flytter e-mails fra ukendt 6

7. Klik OK knappen, og fortsæt med at klikke Næste i denne Er der nogen undtagelser? dialog, tjek undtagen hvis afsenderen er i den angivne adressebog valgmulighed i Trin1: Vælg undtagelse (r) i listen, og klik derefter på den sammenkædede tekst specificeretOg en Tilføj adresseliste feltet vises, vælg en kontaktmappe, der indeholder de kontakter, du vil undtage, se skærmbillede:

doc flytter e-mails fra ukendt 7

8. Klik derefter på Tilføj knappen, og klik derefter på Næste for at gå til den sidste dialogboks, skal du skrive et regelnavn i Trin 1: Angiv et navn til denne regel tekstfelt, og tjek Tænd for denne regel mulighed fra Trin2: Opsætningsregel sektionen med valgmuligheder. Se skærmbillede:

doc flytter e-mails fra ukendt 8

9. Og klik derefter på Finish , Ok for at lukke dialogerne. Fra nu af, når e-mails, der kommer fra ukendte afsendere, flyttes de automatisk til den specifikke mappe.

Flyt e-mails fra ukendte afsendere til en bestemt mappe ved at anvende VBA-kode

Kan være ovenstående metode er besværlig for dig, her kan du anvende en kode for at håndtere den så hurtigt som muligt.

1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. I Microsoft Visual Basic til applikationer dobbeltklik på vinduet Denne OutlookSession fra Project1 (VbaProject.OTM) rude for at åbne tilstanden og derefter kopiere og indsætte følgende kode i det tomme modul.

VBA-kode: Flyt automatisk e-mails fra ukendte afsendere til en bestemt mappe:

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 flytter e-mails fra ukendt 9

3. Gem derefter koden, og luk kodevinduet, og genstart Outlook for at få koden til at træde i kraft. Fra nu af, når e-mails, der kommer fra nogle ukendte afsendere, flyttes de automatisk til den ukendte mappe, se skærmbillede:

doc flytter e-mails fra ukendt 10

Bemærk: The Ukendt mappe oprettes automatisk, når der er nogle ukendte e-mails, der kommer ind. Du kan ændre mappenavnet “unknow”Til andre i scriptet.