Kaip pakeisti "Outlook" elemento spalvų kategoriją VBA

Jei norite pakeisti „Outlook“ elemento spalvų kategoriją, turėsite pašalinti pradinę, nes bus priskirta nauja kategorija. Taigi, šiame straipsnyje mes išmokysime jus, kaip tai automatizuoti naudojant VBA.

Pagrindinė priežastis, kodėl mes naudojame „Outlook“ spalvų kategorijas, yra geriau klasifikuoti ir valdyti „Outlook“ elementus. Be to, „Outlook“ leidžia mums priskirti vieną ar daugiau spalvų kategorijų vienam elementui. Tačiau per daug kategorijų, priskirtų vienam elementui, kartais gali sujaukti jūsų klasifikavimo taisykles. Todėl daugelis vartotojų nori pakeisti spalvų kategoriją, o ne perdengti kategorijas. Čia mes jums parodysime veiksmingą būdą.

Pakeiskite "Outlook" elemento spalvų kategoriją

1. Pačioje pradžioje paleiskite „Outlook“ programą.
2. Tada pereikite prie skirtuko „Kūrėjas“ ir spustelėkite mygtuką „Visual Basic“ arba paspauskite „Alt + F11“ sparčiuosius klavišus.
3. Tada pateksite į langą „Microsoft Visual Basic for Applications“.
4. Šiuo metu turėtumėte du kartus spustelėti kairėje pusėje esantį projektą „ThisOutlookSession“, kad jį atidarytumėte.
5. Tada nukopijuokite šiuos VBA kodus į šį projekto langą.

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. Po to šiai naujai makrokomandai turėtumėte priskirti skaitmeninį sertifikatą.
7. Vėliau turėsite patikrinti „Outlook“ makrokomandos nustatymus, kad įsitikintumėte, jog pasirašytos makrokomandos yra įjungtos.
8. Galiausiai turėtumėte paleisti „Outlook“ iš naujo, kad suaktyvintumėte naują VBA projektą.
9. Nuo šiol kiekvieną kartą, kai elementui priskirsite naują kategoriją, ankstesnė bus automatiškai pašalinta.

Spręskite „Nettlesome Outlook“ problemas

Kadangi „Outlook“ yra linkusi į klaidas ir sugadinimą, „Outlook“ susidursite su įvairiomis problemomis. Todėl turėtumėte imtis pakankamai atsargumo priemonių. Pavyzdžiui, patartina reguliariai kurti atsargines PST failo kopijas. Be to, jūs turėtumėte gauti galingą PST taisymas įrankis, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant atsigauti Sql Server ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com