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

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:

doc áthelyezi az e-maileket az ismeretlen 1-ből

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

doc áthelyezi az e-maileket az ismeretlen 2-ből

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:

doc áthelyezi az e-maileket az ismeretlen 3-ből

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:

doc áthelyezi az e-maileket az ismeretlen 4-ből

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:

doc áthelyezi az e-maileket az ismeretlen 5-ből

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:

doc áthelyezi az e-maileket az ismeretlen 6-ből

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:

doc áthelyezi az e-maileket az ismeretlen 7-ből

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:

doc áthelyezi az e-maileket az ismeretlen 8-ből

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

doc áthelyezi az e-maileket az ismeretlen 9-ből

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:

doc áthelyezi az e-maileket az ismeretlen 10-ből

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.


Kutools for Outlook - 100 speciális funkciót hoz az Outlookba, és sokkal könnyebbé teszi a munkát!

  • Auto CC / BCC szabályok szerint e-mail küldéskor; Automatikus továbbítás Több e-mail egyedi; Autómatikus válasz csere szerver és további automatikus funkciók nélkül ...
  • BCC figyelmeztetés - üzenet megjelenítése, amikor megpróbál válaszolni az összesre ha az e-mail címed szerepel a BCC listában; Emlékeztessen a hiányzó mellékletekre, és további funkciók emlékeztetnek ...
  • Válasz (minden) az összes melléklettel az e-mail beszélgetésben; Válasz sok e-mailre másodpercek alatt; Automatikus üdvözlet hozzáadása amikor válasz; Dátum hozzáadása a tárgyhoz ...
  • Mellékleteszközök: Az összes levél összes mellékletének kezelése, Automatikus leválasztás, Tömörítsen mindent, Átnevezés, Összes mentése ... Gyorsjelentés, Számolja ki a kiválasztott leveleket...
  • Erőteljes levélszemét szokás szerint; Távolítsa el az ismétlődő leveleket és névjegyeket... Lehetővé teszi, hogy okosabban, gyorsabban és jobban végezze el az Outlook programot.
lövés kutools outlook kutools fül 1180x121
shot kutools outlook kutools plus tab 1180x121
 
A megjegyzések rendezése szerint
Hozzászólások (0)
Még nincs értékelés. Legyen Ön az első, aki értékel!
Még senki sem írt megjegyzést

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi