Se desideri che Outlook sposti automaticamente le email in cartelle diverse quando assegni loro categorie di colore diverse, puoi utilizzare il metodo descritto in questo articolo.
Molti utenti desiderano metodi per spostare automaticamente un'e-mail in una cartella specifica quando le viene assegnata una determinata categoria di colore. Senza dubbio, Outlook non offre una funzionalità così diretta per realizzarlo. Pertanto, di seguito, ti insegneremo un mezzo per ottenerlo. Ora, continua a leggere per ottenere i passaggi dettagliati.

Sposta automaticamente le e-mail con diverse categorie di colori in cartelle diverse
- Innanzitutto, avvia il programma Outlook.
- Quindi, in Outlook, premi i pulsanti "Alt + F11" per accedere all'editor VBA.
- Successivamente, inserisci il seguente codice VBA nel progetto "ThisOutlookSession".
Private WithEvents objInboxFolder As Outlook.Folder
Private WithEvents objInboxItems As Outlook.Items
'Process inbox mails
Private Sub Application_Startup()
Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
Set objInboxItems = objInboxFolder.Items
End Sub
'Occurs when changing item
Private Sub objInboxItems_ItemChange(ByVal Item As Object)
Dim objMail As Outlook.MailItem
Dim objTargetFolder As Outlook.Folder
If TypeOf Item Is MailItem Then
Set objMail = Item
'Move mails based on color category
If InStr(objMail.Categories, "Private") > 0 Then
Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Private")
objMail.Move objTargetFolder
ElseIf InStr(objMail.Categories, "Business") > 0 Then
Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Business")
objMail.Move objTargetFolder
End If
End If
End Sub
Note:
- Per elaborare elementi in altre cartelle, è possibile modificare l'oggetto "objInboxFolder", come "Application.Session.GetDefaultFolder(olFolderSentMail)" per la cartella "Posta inviata".
- Inoltre, modifica le categorie di colore e le cartelle di destinazione predefinite nel codice sopra riportato in base alle tue esigenze specifiche.
- Inoltre, puoi utilizzare "ElseIf" per aggiungere le altre categorie di colori opzionali.
- Dopodiché, sposta il cursore nella subroutine "Application_Startup" e premi "F5", che attiverà questa macro.
- Finalmente puoi sparare. Ecco il mio esempio.
- Seleziona un'e-mail nella cartella Posta in arrivo.
- Quindi, assegnagli la categoria di colore "Privato".
- Immediatamente, questa posta verrà spostata nella cartella "Privato" sotto "Posta in arrivo".
Gestisci le tue prospettive con cura
Forse hai riscontrato diversi problemi nel tuo Outlook. Il più delle volte, si verificano effettivamente a causa delle tue manipolazioni improprie. Ad esempio, chiudi sempre Outlook in modo errato, ad esempio uno spegnimento improvviso. Oppure non hai eseguito il backup dei dati di Outlook a intervalli regolari. Tutte le azioni simili possono rendere il tuo Outlook molto più vulnerabile. Come sai, una volta che un file PST viene danneggiato, è estremamente difficile ripararlo. In generale, il strumento di riparazione della posta in arrivo non produrrà effetti. Non hai altra scelta che prendere l'aiuto di utility esterne di punta, come ad esempio DataNumen Outlook Repair.
Introduzione dell'autore:
Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui recuperare sql e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com


