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?