Hogyan lehet áthelyezni az e-maileket ismeretlen feladókról egy adott mappába az Outlook programban? 

A mindennapi munkája során sok olyan e-mailt kaphat ismeretlen feladóktól, amelyeket nem menti a Névjegyzék mappába. Lehet, hogy ezek levélszemét vagy rosszindulatú e-mailek, ebben az esetben ezeket az e-maileket automatikusan egy meghatározott mappába szeretné helyezni az Inbox helyett. Hogyan oldhatná meg ezt a munkát az Outlook programban?

Szabály létrehozásával áthelyezheti az ismeretlen feladóktól származó e-maileket egy adott mappába

VBA kód alkalmazásával helyezze át az ismeretlen feladóktól származó e-maileket egy adott mappába

---

Szabály létrehozásával áthelyezheti az ismeretlen feladóktól származó e-maileket egy adott mappába

Valójában létrehozhat egy szabályt az ismeretlen feladóktól származó e-mailek automatikus áthelyezéséhez egy adott mappába, kérjük, tegye a következőket:

1. Hozzon létre egy új mappát a Bejövő mappában, amely az ismeretlen feladóktól érkező e-maileket helyezi el a következő képernyőkép szerint:

2. Ezután kattintson FŐOLDAL > Szabályok > Szabályok és figyelmeztetések kezelése, lásd a képernyőképet:

3. Az Szabályok és riasztások párbeszédpanelen kattintson a gombra Új szabály alatt a E-mail szabályok fül, lásd a képernyőképet:

4. és kattintson OK gomb megnyomásával Szabályvarázslókettyenés Szabály alkalmazása a kapott üzenetre lehetőség a Indítson el egy üres szabályt szakasz mező, lásd a képernyőképet:

5. Ezután kattintson Következő gombra, ebben a lépésben kérjük, ne jelöljön ki egyetlen lehetőséget sem, és kattintson a gombra Következő gombra, egy figyelmeztető mező jelenik meg, kattintson Igen gomb, lásd a képernyőképet:

6. A következő párbeszédpanelen ellenőrizze helyezze át a megadott mappába lehetőség a 1. lépés: Művelet (ek) kiválasztása listamezőbe, majd kattintson a linkelt szövegre meghatározott, és a nyitottban Szabályok és riasztások párbeszédpanelen adja meg azt a mappát, ahová áthelyezni szeretné az e-maileket, lásd a képernyőképet:

7. Kattints OK gombra, és kattintson a gombra Következő gombra, ebben Vannak-e kivételek párbeszédpanelen ellenőrizze kivéve, ha a feladó szerepel a megadott címjegyzékben lehetőség a 1. lépés: Kivétel (ek) kiválasztása listamezőbe, majd kattintson a linkelt szövegre meghatározott, Valamint egy Címlista hozzáadása mező megjelenik, válasszon egy névjegy mappát, amely tartalmazza a kívánt névjegyeket, kivéve a képernyőképet:

8. Ezután kattintson hozzáad majd kattintson a gombra Következő az utolsó varázsló párbeszédpanelre való beíráshoz írja be a szabály nevét a 1. lépés: Adjon nevet ennek a szabálynak szövegmezőt, és jelölje be Kapcsolja be ezt a szabályt lehetőség a 2. lépés: Beállítási szabály opciók részben. Lásd a képernyőképet:

9. Kattintson a gombra befejez és a Ok gombokkal bezárhatja a párbeszédpaneleket. Mostantól kezdve, amikor az ismeretlen küldőktől érkező e-mailek automatikusan az adott mappába kerülnek.

---

VBA kód alkalmazásával helyezze át az ismeretlen feladóktól származó e-maileket egy adott mappába

Lehet, hogy a fenti módszer problémás az Ön számára, itt alkalmazhat egy kódot a lehető leggyorsabb kezelésére.

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Az Microsoft Visual Basic for Applications ablakban kattintson duplán ThisOutlookSession tól Project1 (VbaProject.OTM) ablaktáblán nyissa meg a módot, majd másolja és illessze be a következő kódot az üres modulba.

VBA-kód: Az e-mailek automatikus áthelyezése ismeretlen feladóktól egy adott mappába:

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

3. Ezután mentse el a kódot, és zárja be a kódablakot, majd a kód életbe léptetéséhez indítsa újra az Outlook programot. Mostantól, amikor az ismeretlen küldőktől érkező e-mailek automatikusan az Ismeretlen mappába kerülnek, lásd a képernyőképet:

Megjegyzések: A ismeretlen mappa automatikusan létrejön, ha ismeretlen e-mailek érkeznek. Megváltoztathatja a mappa nevétIsmeretlen”Forgatókönyvben másoknak.