Kā aizstāt Outlook vienuma krāsu kategoriju ar VBA

Ja vēlaties aizstāt Outlook vienuma krāsu kategoriju, jums būs jānoņem sākotnējā, kad tiek piešķirta jauna kategorija. Tādējādi šajā rakstā mēs iemācīsim jums to automatizēt, izmantojot VBA.

Galvenais iemesls, kāpēc mēs izmantojam krāsu kategorijas programmā Outlook, ir labāk klasificēt un pārvaldīt jūsu Outlook vienumus. Turklāt programma Outlook ļauj mums vienam vienumam piešķirt vienu vai vairākas krāsu kategorijas. Tomēr pārāk daudz kategoriju, kas piešķirtas vienam vienumam, dažreiz var pārblīvēt jūsu klasifikācijas noteikumus. Tāpēc daudzi lietotāji vēlas nomainīt krāsu kategoriju, nevis pārklāt kategorijas. Šeit mēs jums atklāsim efektīvu veidu.

Nomainiet Outlook vienuma krāsu kategoriju

1. Pašā sākumā palaidiet programmu Outlook.
2. Pēc tam pārejiet uz cilni “Izstrādātājs” un noklikšķiniet uz pogas “Visual Basic” vai nospiediet taustiņu saīsnes “Alt + F11”.
3. Pēc tam ievadīsit logu “Microsoft Visual Basic for Applications”.
4. Šajā brīdī jums ir jāveic dubultklikšķis uz “ThisOutlookSession” projekta kreisajā pusē, lai to atvērtu.
5. Pēc tam šajā projekta logā nokopējiet šādus VBA kodus.

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. Pēc tam šim jaunajam makro jums jāpiešķir digitāls sertifikāts.
7. Vēlāk jums jāpārbauda Outlook makro iestatījumi, lai pārliecinātos, vai ir iespējoti parakstīti makro.
8. Galu galā, lai aktivizētu jauno VBA projektu, jums vajadzētu restartēt programmu Outlook.
9. Turpmāk katru reizi, kad vienumam piešķirat jaunu kategoriju, iepriekšējā tiks automātiski noņemta.

Risiniet nātrinošos Outlook jautājumus

Tā kā programma Outlook ir pakļauta kļūdām un korupcijai, programmā Outlook rodas dažādas problēmas. Tādēļ jums vajadzētu būt pietiekami piesardzīgiem. Piemēram, ieteicams regulāri veikt PST faila dublējumus. Turklāt jums vajadzētu iegūt spēcīgu spēku PST labojums rīks, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp atgūt Sql Server un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar