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 Kezdőlap > 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.
A legjobb irodai hatékonyságnövelő eszközök
Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez
???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető) / Ütemezze az e-mailek küldését / Automatikus CC/BCC szabályok szerint e-mail küldésekor / Automatikus továbbítás (Speciális szabályok) / Automatikus üdvözlet hozzáadása / A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...
📨 Email Management: Könnyen visszahívhatja az e-maileket / Blokkolja az alanyok és mások átverő e-mailjeit / Törölje az ismétlődő e-maileket / Részletes keresés / Mappák összevonása ...
📁 Attachments Pro: Kötegelt mentés / Batch Detach / Batch tömörítés / Automatikus mentés / Automatikus leválasztás / Automatikus tömörítés ...
🌟 Interface Magic: 😊További szép és menő hangulatjelek / Növelje Outlook termelékenységét a füles nézetekkel / Minimalizálja az Outlookot a bezárás helyett ...
👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel / Adathalászat elleni e-mailek / 🕘A feladó időzónájának megjelenítése ...
👩🏼🤝👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből / Egy kapcsolattartó csoport felosztása egyéni csoportokra / Távolítsa el a születésnapi emlékeztetőket ...
Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.