Jak přesunout e-maily od neznámých odesílatelů do konkrétní složky v aplikaci Outlook?

Autor: Xiaoyang Naposledy změněno: 2018-05-22

Při každodenní práci můžete obdržet mnoho e-mailů od neznámých odesílatelů, kteří nejsou uloženi ve složce Kontakty. Může se jednat o nevyžádané nebo škodlivé e-maily, v tomto případě chcete tyto e-maily místo Doručené pošty automaticky přesunout do konkrétní složky. Jak byste mohli vyřešit tuto práci v Outlooku?

Přesuňte e-maily od neznámých odesílatelů do konkrétní složky vytvořením pravidla

Přesuňte e-maily od neznámých odesílatelů do konkrétní složky pomocí kódu VBA

Přesuňte e-maily od neznámých odesílatelů do konkrétní složky vytvořením pravidla

Ve skutečnosti můžete vytvořit pravidlo pro automatické přesunutí e-mailů od neznámých odesílatelů do konkrétní složky, postupujte takto:

1. Vytvořte novou složku ve složce Doručená pošta, která umístí e-maily pocházející od neznámých odesílatelů, jak ukazuje následující snímek obrazovky:

doc přesunout e-maily z neznámého 1

2. Pak klikněte na tlačítko Domů > pravidla > Spravujte pravidla a upozornění, viz screenshot:

doc přesunout e-maily z neznámého 2

3. V Pravidla a upozornění , klepněte na tlačítko OK Nové pravidlo pod Pravidla e-mailu karta, viz screenshot:

doc přesunout e-maily z neznámého 3

4, A klikněte na tlačítko OK pro přechod na Průvodce pravidly, Klepněte na tlačítko Použít pravidlo na zprávu, kterou dostávám možnost z nabídky Začněte od prázdného pravidla sekce, viz screenshot:

doc přesunout e-maily z neznámého 4

5. Pak klikněte na tlačítko další Tlačítko, v tomto kroku prosím nevybírejte žádnou možnost a klikněte další přímo, zobrazí se varovné okno, klikněte prosím Ano tlačítko, viz screenshot:

doc přesunout e-maily z neznámého 5

6. A v dalším dialogovém okně zaškrtněte přesuňte jej do určené složky možnost v Krok 1: Vyberte akce seznamu a poté klikněte na odkazovaný text specifikovanýa na otevřeném místě Pravidla a upozornění v dialogovém okně zadejte složku, kam chcete přesunout e-maily, viz screenshot:

doc přesunout e-maily z neznámého 6

7, klikněte OK tlačítko a pokračujte kliknutím další tlačítko, v tomto Existují nějaké výjimky dialog, zkontrolujte kromě případů, kdy je odesílatel v zadaném adresáři možnost v Krok 1: Vyberte výjimky seznamu a poté klikněte na odkazovaný text specifikovanýA Přidat seznam adres vyskočí pole, vyberte složku kontaktů, která obsahuje kontakty, které chcete, kromě snímku obrazovky:

doc přesunout e-maily z neznámého 7

8. Pak klikněte na tlačítko přidat a klepněte na tlačítko další Chcete-li přejít na poslední dialog průvodce, zadejte do pole název pravidla Krok 1: Zadejte název tohoto pravidla textové pole a zkontrolujte Zapněte toto pravidlo možnost z nabídky Krok 2: Nastavení pravidla sekce možností. Viz snímek obrazovky:

doc přesunout e-maily z neznámého 8

9. A pak klikněte na tlačítko úprava a Ok tlačítka zavřete dialogy. Od této chvíle budou e-maily přicházející od neznámých odesílatelů automaticky přesouvány do konkrétní složky.

Přesuňte e-maily od neznámých odesílatelů do konkrétní složky pomocí kódu VBA

Může být výše uvedená metoda pro vás obtížná, zde můžete použít kód, který se s ní vypořádá co nejrychleji.

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, dvakrát klikněte ThisOutlookSession z Project1 (VbaProject.OTM) v podokně otevřete režim a poté zkopírujte a vložte následující kód do prázdného modulu.

Kód VBA: Automatické přesunutí e-mailů od neznámých odesílatelů do konkrétní složky:

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 přesunout e-maily z neznámého 9

3. Poté kód uložte a zavřete okno s kódem a restartujte aplikaci Outlook, aby se kód projevil. Od nynějška budou e-maily přicházející od neznámých odesílatelů automaticky přesunuty do neznámé složky, viz screenshot:

doc přesunout e-maily z neznámého 10

Poznámka: Neznámý složka bude vytvořena automaticky, když přijdou nějaké neznámé e-maily. Můžete změnit název složky “Neznáme„Ostatním ve skriptu.