Come spostare automaticamente le e-mail con categorie di colori diverse in cartelle diverse in Outlook

Condividi ora:

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 in Outlook

Sposta automaticamente le e-mail con diverse categorie di colori in cartelle diverse

  1. Innanzitutto, avvia il programma Outlook.
  2. Quindi, in Outlook, premi i pulsanti "Alt + F11" per accedere all'editor VBA.
  3. 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

Codice VBA: sposta automaticamente le e-mail con categorie di colori diverse in cartelle diverse

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.
  1. Dopodiché, sposta il cursore nella subroutine "Application_Startup" e premi "F5", che attiverà questa macro.
  2. Finalmente puoi sparare. Ecco il mio esempio.
  • Seleziona un'e-mail nella cartella Posta in arrivo.
  • Quindi, assegnagli la categoria di colore "Privato".Assegna una categoria colore a un'e-mail
  • Immediatamente, questa posta verrà spostata nella cartella "Privato" sotto "Posta in arrivo".Email che viene spostata automaticamente in una cartella specifica

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

Condividi ora:

I commenti sono chiusi.