Paano Palitan ang Kategorya ng Kulay ng isang Outlook Item sa VBA

Kung gusto mong palitan ang kategorya ng kulay ng isang item sa Outlook, kakailanganin mong alisin ang orihinal habang nakatalaga ang isang bagong kategorya. Kaya, sa artikulong ito, ituturo namin sa iyo kung paano i-automate ito sa pamamagitan ng VBA.

Ang pangunahing dahilan kung bakit ginagamit namin ang mga kategorya ng kulay sa Outlook ay upang mas mahusay na pag-uri-uriin at pamahalaan ang iyong mga item sa Outlook. Dagdag pa, pinahihintulutan kami ng Outlook na magtalaga ng isa o higit pang mga kategorya ng kulay sa isang item. Gayunpaman, ang napakaraming kategorya na nakatalaga sa isang item ay maaaring minsan ay nakakalat sa iyong mga panuntunan sa pag-uuri. Samakatuwid, maraming user ang gustong palitan ang kategorya ng kulay sa halip na mag-overlay ng mga kategorya. Dito ay ilalantad namin ang isang mabisang paraan sa iyo.

Palitan ang Kategorya ng Kulay ng isang Outlook Item

1. Sa simula pa lamang, ilunsad ang iyong aplikasyon sa Outlook.
2. Pagkatapos ay lumipat sa tab na "Developer" at i-click ang button na "Visual Basic" o pindutin ang "Alt + F11" key shortcut.
3. Susunod ay ipasok mo ang window na "Microsoft Visual Basic for Applications".
4. Sa puntong ito, dapat mong i-double click ang proyektong “ThisOutlookSession” sa kaliwang bahagi upang buksan ito.
5. Kasunod, kopyahin ang mga sumusunod na VBA code sa window ng proyekto na ito.

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. Pagkatapos nito, dapat kang magtalaga ng isang digital na sertipiko sa bagong macro na ito.
7. Sa ibang pagkakataon, kailangan mong suriin ang iyong mga setting ng macro sa Outlook upang matiyak na pinagana ang mga naka-sign na macro.
8. Sa kalaunan, dapat mong i-restart ang Outlook upang maisaaktibo ang bagong proyekto ng VBA.
9. Mula ngayon, sa tuwing magtatalaga ka ng bagong kategorya sa isang item, awtomatikong aalisin ang nauna.

Pangasiwaan ang Nettlesome Outlook Isyu

Dahil ang Outlook ay madaling kapitan ng error at katiwalian, makakatagpo ka ng iba't ibang isyu sa iyong Outlook. Samakatuwid, dapat kang gumawa ng sapat na pag-iingat. Halimbawa, ipinapayong gumawa ng mga regular na backup para sa iyong PST file. Bukod dito, dapat kang humawak ng isang makapangyarihan Ayusin ang PST tool, tulad ng DataNumen Outlook Repair.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang mabawi Sql Server at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa