Comment remplacer la catégorie de couleur d'un élément Outlook par VBA

Si vous souhaitez remplacer la catégorie de couleur d'un élément Outlook, vous devrez supprimer celle d'origine car une nouvelle catégorie est attribuée. Ainsi, dans cet article, nous allons vous apprendre comment automatiser cela via VBA.

La principale raison pour laquelle nous utilisons des catégories de couleurs dans Outlook est de mieux classer et gérer vos éléments Outlook. De plus, Outlook nous permet d'attribuer une ou plusieurs catégories de couleurs à un élément. Cependant, trop de catégories attribuées à un même article peuvent parfois encombrer vos règles de classification. Par conséquent, de nombreux utilisateurs souhaitent remplacer la catégorie de couleur au lieu de superposer des catégories. Ici nous allons vous exposer un moyen efficace.

Remplacer la catégorie de couleur d'un élément Outlook

1. Au tout début, lancez votre application Outlook.
2. Passez ensuite à l'onglet "Développeur" et cliquez sur le bouton "Visual Basic" ou appuyez sur les raccourcis clavier "Alt + F11".
3. Ensuite, vous entrerez dans la fenêtre "Microsoft Visual Basic pour Applications".
4. À ce stade, vous devez double-cliquer sur le projet "ThisOutlookSession" sur le côté gauche pour l'ouvrir.
5. Ensuite, copiez les codes VBA suivants dans cette fenêtre de projet.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
'Take Mailitem as an example
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_Activate()
    On Error Resume Next
    Set objMail = objExplorer.Selection.Item(1)
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    Set objMail = Inspector.CurrentItem
End Sub

Private Sub objMail_PropertyChange(ByVal Name As String)
    Dim strSpecificCategory As String
    Dim strCategories As String
    Dim varArray As Variant
    Dim i As Long
  
    If Name = "Categories" Then
       strCategories = objMail.Categories
       varArray = Split(objMail.Categories, ",")
       If UBound(varArray) >= 1 Then
          'If want to get a confirmation before removing the original category
          'Add the following lines
          'Dim strPrompt As String
          'Dim nResponse As Integer
          'strPrompt = "Do you want to remove the original color category?"
          'nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Color Category Assignment")
          'If nResponse = vbYes Then
          For i = 0 To UBound(varArray)
              'Remove the previous color categories
              varArray(1) = ""
              'Rebuild the categories
              objMail.Categories = Join(varArray, ",")
              Exit Sub
          Next i
          'End If
       End If
    End If
End Sub

6. Après cela, vous devez attribuer un certificat numérique à cette nouvelle macro.
7. Plus tard, vous devrez vérifier vos paramètres de macro Outlook pour vous assurer que les macros signées sont activées.
8. Vous devrez finalement redémarrer Outlook pour activer le nouveau projet VBA.
9. Désormais, chaque fois que vous attribuez une nouvelle catégorie à un élément, la précédente sera automatiquement supprimée.

Gérer les problèmes d'Outlook

Comme Outlook est sujet aux erreurs et à la corruption, vous rencontrerez divers problèmes dans votre Outlook. Par conséquent, vous devez prendre suffisamment de précautions. Par exemple, il est conseillé de faire des sauvegardes régulières de votre fichier PST. De plus, vous devriez vous procurer un puissant Correction PST outil, tel 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 Server et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com