Kuinka korvata Outlook-kohteen väriluokka VBA: lla

Jos haluat korvata Outlook-kohteen väriluokan, sinun on poistettava alkuperäinen, kun uusi luokka määritetään. Siksi tässä artikkelissa opetamme, kuinka automatisoida tämä VBA: n kautta.

Ensisijainen syy, miksi käytämme väriluokkia Outlookissa, on luokitella ja hallita Outlook-kohteita paremmin. Lisäksi Outlook antaa meille mahdollisuuden määrittää yksi tai useampi väriluokka yhdelle tuotteelle. Liian monta luokkaa, jotka on osoitettu yhdelle tuotteelle, voi joskus sekoittaa luokittelusäännöt. Siksi monet käyttäjät haluavat korvata väriluokan päällekkäisten luokkien sijaan. Täällä paljastamme sinulle tehokkaan tavan.

Korvaa Outlook-kohteen väriluokka

1. Käynnistä Outlook-sovellus heti alusta.
2. Siirry sitten Kehittäjä-välilehteen ja napsauta Visual Basic-painiketta tai paina Alt + F11-pikanäppäimiä.
3. Seuraavaksi syötät "Microsoft Visual Basic for Applications" -ikkunan.
4. Tässä vaiheessa sinun pitäisi kaksoisnapsauttaa “ThisOutlookSession” -projektia vasemmalla puolella avataksesi sen.
5. Kopioi sitten seuraavat VBA-koodit tähän projektiikkunaan.

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. Sen jälkeen sinun tulisi määrittää digitaalinen varmenne tälle uudelle makrolle.
7. Myöhemmin sinun on tarkistettava Outlook-makroasetuksesi varmistaaksesi, että allekirjoitetut makrot ovat käytössä.
8. Lopulta sinun tulee käynnistää Outlook uudelleen aktivoidaksesi uuden VBA-projektin.
9. Tästä eteenpäin aina, kun määrität kohteelle uuden luokan, edellinen poistetaan automaattisesti.

Käsittele Nettlesome Outlook -ongelmia

Koska Outlook on altis virheille ja korruptiolle, Outlookissa esiintyy useita ongelmia. Siksi sinun tulee olla riittävän varovainen. Esimerkiksi on suositeltavaa tehdä säännölliset varmuuskopiot PST-tiedostostasi. Lisäksi sinun pitäisi saada käsiinsä voimakas PST-korjaus työkalu, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien toipua Sql Server ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com