Comment déplacer automatiquement des e-mails avec différentes catégories de couleurs vers différents dossiers dans Outlook

Solutions Outlook 29 septembre

Si vous souhaitez qu'Outlook déplace automatiquement les e-mails vers différents dossiers lorsque vous leur attribuez des catégories de couleur différentes, vous pouvez utiliser la méthode présentée dans cet article.

De nombreux utilisateurs recherchent des méthodes pour déplacer automatiquement un e-mail vers un dossier spécifique lorsqu'une certaine catégorie de couleur lui est attribuée. Sans aucun doute, Outlook n'offre pas une fonctionnalité aussi directe pour le réaliser. Par conséquent, dans ce qui suit, nous vous apprendrons un moyen de l'obtenir. Maintenant, lisez la suite pour obtenir les étapes détaillées.

Déplacer automatiquement les e-mails avec différentes catégories de couleurs vers différents dossiers

Pour commencer, lancez votre programme Outlook.
Ensuite, dans Outlook, appuyez sur les touches "Alt + F11" pour accéder à l'éditeur VBA.
Ensuite, placez le code VBA suivant dans le projet "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

Remarques :

Pour traiter les éléments dans d'autres dossiers, vous pouvez modifier l'objet « objInboxFolder », comme « Application.Session.GetDefaultFolder(olFolderSentMail) » pour le dossier « Éléments envoyés ».
Modifiez également les catégories de couleurs et les dossiers cibles prédéfinis dans le code ci-dessus en fonction de vos cas réels.
De plus, vous pouvez utiliser "ElseIf" pour ajouter les autres catégories de couleurs facultatives.

Ensuite, déplacez le curseur dans la sous-routine « Application_Startup » et appuyez sur « F5 », ce qui activera cette macro.
Enfin, vous pouvez prendre une photo. Voici mon exemple.

Sélectionnez un e-mail dans le dossier Boîte de réception.
Ensuite, attribuez-lui la catégorie de couleur "Privé".
Immédiatement, ce courrier sera déplacé vers le dossier "Privé" sous "Boîte de réception".

Gérez vos perspectives avec soin

Peut-être avez-vous rencontré plusieurs problèmes dans votre Outlook. Le plus souvent, ils se produisent en fait à cause de vos mauvaises manipulations. Par exemple, vous fermez toujours votre Outlook de manière incorrecte, comme une mise hors tension soudaine. Ou vous n'avez pas sauvegardé vos données Outlook à intervalles réguliers. Toutes les actions similaires peuvent rendre votre Outlook beaucoup plus vulnérable. Comme vous le savez, une fois qu'un fichier PST est endommagé, il est extrêmement difficile de le réparer. En général, le outil de réparation de boîte de réception ne fera pas d'effets. Vous n'avez pas d'autre choix que de prendre l'aide d'utilitaires externes de pointe, tels que DataNumen Outlook Repair.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris récupérer sql et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com