Preskoči na glavno vsebino

Kako premakniti e-pošto z neznanih pošiljateljev v določeno mapo v Outlooku? 

Pri vsakodnevnem delu lahko prejmete veliko e-poštnih sporočil neznanih pošiljateljev, ki niso shranjena v mapi Stiki. To so lahko nekatera neželena ali zlonamerna e-poštna sporočila, v tem primeru želite samodejno premakniti ta e-poštna sporočila v določeno mapo namesto v mapo Prejeto. Kako ste lahko rešili to nalogo v Outlooku?

Z ustvarjanjem pravila premaknite e-pošto neznanih pošiljateljev v določeno mapo

Premaknite e-pošto neznanih pošiljateljev v določeno mapo z uporabo kode VBA


Z ustvarjanjem pravila premaknite e-pošto neznanih pošiljateljev v določeno mapo

Pravzaprav lahko ustvarite pravilo za samodejno premikanje e-poštnih sporočil neznanih pošiljateljev v določeno mapo. Naredite naslednje:

1. V mapi Prejeto ustvarite novo mapo, v katero bodo e-poštna sporočila prišla od neznanih pošiljateljev, kot je prikazano na sliki spodaj:

doc premakni e-pošto iz neznanega 1

2. Nato kliknite HOME > Pravila > Upravljanje pravil in opozoril, glej posnetek zaslona:

doc premakni e-pošto iz neznanega 2

3. v Pravila in opozorila pogovorno okno, kliknite Novo pravilo pod Pravila o e-pošti zavihek, glej posnetek zaslona:

doc premakni e-pošto iz neznanega 3

4. in kliknite OK , da odprete Čarovnik za pravila, Kliknite Uporabi pravilo za prejeto sporočilo možnost iz Začnite s praznim pravilom v razdelku, glej posnetek zaslona:

doc premakni e-pošto iz neznanega 4

5. Nato kliknite Naslednji v tem koraku ne izberite nobene možnosti in kliknite Naslednji Neposredno se prikaže opozorilno polje, kliknite Da gumb, glej posnetek zaslona:

doc premakni e-pošto iz neznanega 5

6. In v naslednjem pogovornem oknu potrdite premaknite v določeno mapo možnost v 1. korak: Izberite dejanja in nato kliknite povezano besedilo določenoin v odprtem Pravila in opozorila v pogovornem oknu določite mapo, kamor želite premakniti e-pošto, glejte posnetek zaslona:

doc premakni e-pošto iz neznanega 6

7. Kliknite OK in nadaljujte s klikom Naslednji gumb, v tem Ali obstajajo izjeme pogovorno okno, preverite razen če je pošiljatelj v navedenem imeniku možnost v 1. korak: izberite izjeme in nato kliknite povezano besedilo določeno, Ter Dodaj seznam naslovov polje se bo odprlo, izberite mapo stikov, ki vsebuje stike, ki jih želite razen, glejte posnetek zaslona:

doc premakni e-pošto iz neznanega 7

8. Nato kliknite Dodaj gumb in nato kliknite Naslednji da odprete zadnje pogovorno okno čarovnika, vnesite ime pravila v 1. korak: Določite ime za to pravilo in potrdite Vklopite to pravilo možnost iz 2. korak: pravilo za namestitev odsek z možnostmi. Oglejte si posnetek zaslona:

doc premakni e-pošto iz neznanega 8

9. In nato kliknite Konec in Ok za zapiranje pogovornih oken. Od zdaj naprej bodo e-poštna sporočila neznanih pošiljateljev samodejno premaknjena v določeno mapo.


Premaknite e-pošto neznanih pošiljateljev v določeno mapo z uporabo kode VBA

Morda je zgornja metoda za vas težavna, tu lahko uporabite kodo, s katero se boste čim hitreje spoprijeli z njo.

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. v Microsoft Visual Basic za aplikacije okno, dvokliknite Ta OutlookSession Iz Projekt1 (VbaProject.OTM) , da odprete način, nato pa v prazen modul kopirajte in prilepite naslednjo kodo.

Koda VBA: Samodejno premakni e-pošto z neznanih pošiljateljev v določeno mapo:

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 premakni e-pošto iz neznanega 9

3. Nato shranite kodo in zaprite okno kode ter znova zaženite Outlook, da bo koda začela veljati. Od zdaj naprej, ko bodo e-poštna sporočila nekaterih neznanih pošiljateljev samodejno premaknjena v mapo Neznano, si oglejte posnetek zaslona:

doc premakni e-pošto iz neznanega 10

Opombe: Neznan mapa bo ustvarjena samodejno, ko bo prišlo nekaj neznanih e-poštnih sporočil. Ime mape lahko spremeniteNe vem«Drugim v pisavi.


Najboljša pisarniška orodja za produktivnost

Kutools za Outlook - Več kot 100 zmogljivih funkcij za nadgradnjo vašega Outlooka

📧 Avtomatizacija e-pošte: Odsoten (na voljo za POP in IMAP)  /  Načrtujte pošiljanje e-pošte  /  Samodejna CC/BCC po pravilih pri pošiljanju e-pošte  /  Samodejno naprej (napredna pravila)   /  Samodejno dodaj pozdrav   /  E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...

📨 Email upravljanje: Enostaven priklic e-pošte  /  Blokiraj prevarantska e-poštna sporočila glede na teme in druge  /  Izbriši podvojena e-poštna sporočila  /  napredno iskanje  /  Združite mape ...

📁 Priloge ProShrani paket  /  Batch Detach  /  Paketno stiskanje  /  Samodejno shranite   /  Samodejno loči  /  Samodejno stiskanje ...

🌟 Vmesnik Magic: 😊Več lepih in kul emojijev   /  Povečajte Outlookovo produktivnost s pogledi z zavihki  /  Minimizirajte Outlook, namesto da bi ga zaprli ...

???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami  /   E-poštna sporočila proti lažnemu predstavljanju  /  🕘Pokaži pošiljateljev časovni pas ...

👩🏼‍🤝‍👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil  /  Razdelite skupino stikov na posamezne skupine  /  Odstranite opomnike za rojstni dan ...

Over 100 Lastnosti Čakajte na svoje raziskovanje! Kliknite tukaj, če želite odkriti več.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations