Cum să înlocuiți categoria de culoare a unui element Outlook cu VBA

Dacă doriți să înlocuiți categoria de culoare a unui element Outlook, va trebui să o eliminați pe cea originală, deoarece este atribuită o nouă categorie. Astfel, în acest articol, vă vom învăța cum să automatizați acest lucru prin VBA.

Motivul principal pentru care folosim categoriile de culori în Outlook este acela de a clasifica și gestiona mai bine articolele Outlook. În plus, Outlook ne permite să atribuim una sau mai multe categorii de culori unui articol. Cu toate acestea, prea multe categorii atribuite unui singur articol vă pot aglomera uneori regulile de clasificare. Prin urmare, mulți utilizatori doresc să înlocuiască categoria de culori în loc să se suprapună categorii. Aici vă vom expune o modalitate eficientă.

Înlocuiți categoria de culoare a unui element Outlook

1. De la bun început, lansați aplicația Outlook.
2. Apoi comutați la fila „Dezvoltator” și faceți clic pe butonul „Visual Basic” sau apăsați comenzile rapide „Alt + F11”.
3. Apoi veți intra în fereastra „Microsoft Visual Basic for Applications”.
4. În acest moment, ar trebui să faceți dublu clic pe proiectul „ThisOutlookSession” din partea stângă pentru a-l deschide.
5. Ulterior, copiați următoarele coduri VBA în această fereastră de proiect.

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. După aceea, ar trebui să atribuiți un certificat digital acestei noi macrocomenzi.
7. Mai târziu, trebuie să verificați setările macrocomenzilor Outlook pentru a vă asigura că macrocomenzile semnate sunt activate.
8. În cele din urmă, ar trebui să reporniți Outlook pentru a activa noul proiect VBA.
9. De acum înainte, de fiecare dată când atribuiți o nouă categorie unui articol, cea anterioară va fi eliminată automat.

Gestionați problemele de Outlook Nettlesome

Deoarece Outlook este predispus la erori și corupție, veți întâmpina diverse probleme în Outlook. Prin urmare, ar trebui să luați suficientă precauție. De exemplu, este recomandabil să faceți copii de rezervă regulate pentru fișierul dvs. PST. Mai mult, ar trebui să puneți mâna pe un puternic Remediere PST instrument, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recupera Sql Server și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com