Jak přesunout e-maily do určené složky po přiřazení určité kategorie v aplikaci Outlook?
Předpokládejme, že jste do aplikace Outlook přiřadili kategorii přijatému e-mailu, po přiřazení kategorie chcete, aby se tento e-mail automaticky přesunul do určité e-mailové složky s názvem kategorie. Například e-mail přiřazený do kategorie „Soukromé“ bude ve vašem Outlooku přesunut do názvu složky „Soukromé“. Jak toho dosáhnout? Metoda v tomto článku vám pomůže problém snadno vyřešit.
Po přiřazení určité kategorie pomocí VBA přesuňte e-maily do určené složky
Po přiřazení určité kategorie pomocí VBA přesuňte e-maily do určené složky
Níže uvedený kód VBA vám pomůže automaticky přesunout e-maily do určené složky po přiřazení určité kategorie v aplikaci Outlook. Postupujte prosím následovně.
1. zmáčkni Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, dvojitým kliknutím otevřete ThisOutlookSession (kód) okno. Poté zkopírujte níže uvedený kód VBA do okna. Viz screenshot:
Kód VBA: Po přiřazení určité kategorie přesuňte e-maily do určené složky
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. Uložte kód a restartujte Outlook.
4. Od této chvíle se při přiřazování kategorie k přijímajícímu e-mailu automaticky vytvoří složka s názvem kategorie ve složce Doručená pošta s přesunutým e-mailem. Viz snímek obrazovky:
Poznámka: Všechny e-maily přiřazené do stejné kategorie budou automaticky přesunuty do stejné složky. Pokud je však e-mailu přiřazena nová kategorie, automaticky se vytvoří nová složka.
Související články:
- Jak přiřadit kategorii odchozím e-mailům v Outlooku?
- Jak zachovat původní kategorie při odpovídání nebo přeposílání e-mailů v aplikaci Outlook?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!