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

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.


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (0)
Ocene še ni. Bodite prvi in ​​ocenite!
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije