Cum să mutați e-mailurile în folderul specificat după alocarea anumitor categorii în Outlook?
Presupunând că ați atribuit o categorie unui e-mail primit în Outlook, după ce ați atribuit o categorie, doriți ca acest e-mail să se mute automat într-un anumit folder de e-mail numit cu numele categoriei. De exemplu, un e-mail atribuit cu categoria „Privat” va fi mutat într-un nume de folder „Privat” în Outlook. Cum se realizează? Metoda din acest articol vă poate ajuta să rezolvați problema cu ușurință.
Mutați e-mailurile în folderul specificat după ce ați atribuit anumite categorii cu VBA
Mutați e-mailurile în folderul specificat după ce ați atribuit anumite categorii cu VBA
Codul VBA de mai jos vă poate ajuta să mutați automat e-mailurile în folderul specificat după alocarea anumitor categorii în Outlook. Vă rugăm să faceți următoarele.
1. apasă pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastră, faceți dublu clic pentru a deschide ThisOutlookSession (Cod) fereastră. Apoi copiați mai jos codul VBA în fereastră. Vedeți captura de ecran:
Cod VBA: Mutați e-mailurile în folderul specificat după atribuirea anumitor categorii
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. Salvați codul și reporniți Outlook.
4. De acum înainte, atunci când atribuiți categoria unui e-mail de primire, un folder cu numele categoriei va fi creat automat sub folderul Inbox cu e-mailul mutat. Vedeți captura de ecran:
notițe: Toate e-mailurile atribuite cu aceeași categorie vor fi mutate automat în același folder. Dar dacă o nouă categorie este alocată unui e-mail, un folder nou va fi creat automat.
Legate de articole:
- Cum se atribuie o categorie e-mailurilor de ieșire din Outlook?
- Cum să păstrați categoriile originale atunci când răspundeți sau redirecționați e-mailurile în Outlook?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!