Hogyan cserélje le egy Outlook elem színkategóriáját VBA-val

Ha le szeretné cserélni egy Outlook-elem színkategóriáját, az új kategória hozzárendelésekor el kell távolítania az eredetit. Így ebben a cikkben megtanítjuk, hogyan automatizálhatja ezt VBA-n keresztül.

Az elsődleges ok, amiért színkategóriákat használunk az Outlookban, az Outlook-elemek jobb osztályozása és kezelése. Ráadásul az Outlook lehetővé teszi, hogy egy vagy több színkategóriát rendeljünk egy elemhez. Mindazonáltal, ha túl sok kategória van hozzárendelve egyetlen elemhez, néha összezavarhatja az osztályozási szabályokat. Ezért sok felhasználó szeretné lecserélni a színkategóriát a kategóriák átfedése helyett. Itt bemutatunk egy hatékony módszert.

Cserélje ki egy Outlook elem színkategóriáját

1. A legelején indítsa el az Outlook alkalmazást.
2. Ezután váltson a „Fejlesztő” fülre, és kattintson a „Visual Basic” gombra, vagy nyomja meg az „Alt + F11” billentyűparancsokat.
3. Ezután belép a „Microsoft Visual Basic for Applications” ablakba.
4. Ezen a ponton kattintson duplán a bal oldalon található „ThisOutlookSession” projektre a megnyitásához.
5. Ezt követően másolja be a következő VBA-kódokat ebbe a projektablakba.

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. Ezt követően hozzá kell rendelnie egy digitális tanúsítványt ehhez az új makróhoz.
7. Később ellenőriznie kell az Outlook makró beállításait, hogy megbizonyosodjon arról, hogy az aláírt makrók engedélyezve vannak.
8. Végül újra kell indítania az Outlookot az új VBA-projekt aktiválásához.
9. Mostantól minden alkalommal, amikor új kategóriát rendel egy elemhez, az előző automatikusan törlődik.

Kezelje a nettlesome Outlook-problémákat

Mivel az Outlook hajlamos a hibákra és a korrupcióra, különféle problémákkal találkozhat az Outlookban. Ezért kellő elővigyázatosságot kell tennie. Például tanácsos rendszeresen biztonsági másolatot készíteni a PST-fájlról. Sőt, meg kell szereznie egy erős PST javítás eszköz, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve meggyógyul Sql Server és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com