Note: The other languages of the website are Google-translated. Back to English

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 Start > 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.


Kutools for Outlook - ger 100 avancerade funktioner till Outlook och gör arbetet mycket enklare!

  • Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter anpassning; Auto-svar utan växelserver och mer automatiska funktioner ...
  • BCC-varning - visa meddelande när du försöker svara på alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
  • Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden inom sekunder; Lägg automatiskt till hälsning när svar Lägg till datum i ämnet ...
  • Bilagverktyg: Hantera alla bilagor i alla e-postmeddelanden, Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla ... Snabbrapport, Räkna valda mejl...
  • Kraftfulla skräppost efter anpassning; Ta bort duplicerade e-postmeddelanden och kontakter... Gör det möjligt för dig att göra smartare, snabbare och bättre i Outlook.
shot kutools outlook kutools flik 1180x121
shot kutools outlook kutools plus flik 1180x121
 
Sortera kommentarer efter
Kommentarer (0)
Inga betyg än. Bli först med att betygsätta!
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL