Come spostare le email in una cartella specifica dopo aver assegnato una determinata categoria in Outlook?
Supponiamo che tu abbia assegnato una categoria a un'email ricevuta nel tuo Outlook. Dopo aver assegnato la categoria, desideri che questa email venga spostata automaticamente in una determinata cartella di posta elettronica denominata con il nome della categoria. Ad esempio, un'email assegnata alla categoria “Privato” verrà spostata in una cartella denominata “Privato” nel tuo Outlook. Come fare per realizzarlo? Il metodo descritto in questo articolo può aiutarti a risolvere il problema con facilità.
Sposta le email in una cartella specifica dopo aver assegnato una determinata categoria con VBA
Sposta le email in una cartella specifica dopo aver assegnato una determinata categoria con VBA
Il seguente codice VBA può aiutare a spostare automaticamente le email in una cartella specifica dopo aver assegnato una determinata categoria in Outlook. Procedi come segue.
1. Premi i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.
2. Nella finestra Microsoft Visual Basic for Applications, fai doppio clic per aprire la finestra ThisOutlookSession (Codice). Successivamente, copia il seguente codice VBA nella finestra. Vedi screenshot:
Codice VBA: Sposta le email in una cartella specifica dopo aver assegnato una determinata categoria
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 il codice e riavvia Outlook.
4. Da ora in poi, quando assegni una categoria a un'email in arrivo, verrà creata automaticamente una cartella con il nome della categoria sotto la cartella Posta in arrivo, e l'email verrà spostata al suo interno. Vedi screenshot:
Nota: Tutte le email assegnate alla stessa categoria verranno spostate automaticamente nella stessa cartella. Tuttavia, se viene assegnata una nuova categoria a un'email, verrà creata automaticamente una nuova cartella.
Assistente AI per la Posta in Outlook: Risposte più intelligenti, comunicazione più chiara (magia con un clic!) GRATIS
Semplifica le tue attività quotidiane di Outlook con l'Assistente AI per la Posta di Kutools per Outlook. Questo potente strumento impara dalle tue email precedenti per offrire risposte intelligenti e accurate, ottimizzare il contenuto delle tue email e aiutarti a redigere e perfezionare i messaggi senza sforzo.
Questa funzione supporta:
- Risposte Intelligenti: Ottieni risposte create a partire dalle tue conversazioni passate—personalizzate, precise e pronte all'uso.
- Contenuto Migliorato: Perfeziona automaticamente il testo delle tue email per chiarezza e impatto.
- Composizione Senza Sforzo: Fornisci solo delle parole chiave e lascia che l'IA si occupi del resto, con diversi stili di scrittura.
- Estensioni Intelligenti: Espandi i tuoi pensieri con suggerimenti contestuali.
- Riassunti: Ottieni sintesi concise di email lunghe istantaneamente.
- Portata Globale: Traduci le tue email in qualsiasi lingua con facilità.
Questa funzione supporta:
- Risposte intelligenti alle email
- Contenuto ottimizzato
- Bozze basate su parole chiave
- Estensione intelligente del contenuto
- Riassunto delle email
- Traduzione multilingue
Il meglio di tutto è che questa funzione è completamente gratuita per sempre! Non aspettare—scarica subito Assistente AI per la Posta e goditela
Articoli correlati:
- Come assegnare una categoria alle email in uscita in Outlook?
- Come mantenere le categorie originali quando si risponde o inoltra un'email in Outlook?
I migliori strumenti per la produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in