Hogyan lehet áthelyezni az e-maileket egy meghatározott mappába az Outlook bizonyos kategóriájának kijelölése után?
Ha feltételezzük, hogy az Outlook programban kategóriát rendelt egy fogadott e-mailhez, a kategória hozzárendelése után azt szeretné, hogy ez az e-mail automatikusan a kategória nevével megnevezett bizonyos e-mail mappába kerüljön. Például a „Privát” kategóriához rendelt e-mail az „Outlook” mappanévre kerül. Hogyan lehet elérni? Az ebben a cikkben szereplő módszer segítségével könnyedén megoldhatja a problémát.
Az e-mailek áthelyezése a megadott mappába, miután bizonyos kategóriákat rendelt a VBA-val
Az e-mailek áthelyezése a megadott mappába, miután bizonyos kategóriákat rendelt a VBA-val
Az alábbi VBA-kód segíthet az e-mailek automatikus áthelyezésében a megadott mappába, miután bizonyos kategóriákat rendelt az Outlook programba. Kérjük, tegye a következőket.
1. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablak, kattintson duplán a ThisOutlookSession (kód) ablak. Ezután másolja a VBA kód alatt az ablakba. Lásd a képernyőképet:
VBA kód: Az e-mailek áthelyezése a megadott mappába bizonyos kategória hozzárendelése után
Private WithEvents xInboxFld As Outlook.Folder
Private WithEvents xInboxItems As Outlook.Items
Private Sub Application_Startup()
Set xInboxFld = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
Set xInboxItems = xInboxFld.Items
End Sub
Private Sub xInboxItems_ItemChange(ByVal Item As Object)
Dim xMailItem As Outlook.MailItem
Dim xFlds As Outlook.Folders
Dim xFld As Outlook.Folder
Dim xTargetFld As Outlook.Folder
Dim xFlag As Boolean
On Error Resume Next
If Item.Class = olMail Then
Set xMailItem = Item
xFlag = False
If xMailItem.Categories <> "" Then
Set xFlds = Application.Session.GetDefaultFolder(olFolderInbox).Folders
If xFlds.Count <> 0 Then
For Each xFld In xFlds
If xFld.Name = xMailItem.Categories Then
xFlag = True
End If
Next
End If
If xFlag = False Then
Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add xMailItem.Categories, olFolderInbox
End If
Set xTargetFld = Application.Session.GetDefaultFolder(olFolderInbox).Folders(xMailItem.Categories)
xMailItem.Move xTargetFld
End If
End If
End Sub
3. Mentse el a kódot, és indítsa újra az Outlook programot.
4. Mostantól kezdve, amikor kategóriát rendel egy fogadó e-mailhez, a kategória nevű mappa automatikusan létrejön az Inbox mappában, az e-mail áthelyezésével. Lásd a képernyőképet:
Megjegyzések: Az összes, ugyanahhoz a kategóriához rendelt e-mail automatikusan ugyanabba a mappába kerül. De ha egy e-mailhez új kategóriát rendelünk, akkor automatikusan új mappa jön létre.
Kapcsolódó cikkek:
- Hogyan rendelhető kategória a kimenő e-mailekhez az Outlookban?
- Hogyan lehet megőrizni az eredeti kategóriákat, amikor e-mailben válaszol vagy továbbít az Outlook programban?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!