Ինչպես փոխարինել Outlook- ի գույների կատեգորիան VBA- ով

Եթե ​​ցանկանում եք փոխարինել Outlook իրի գունային կատեգորիան, դուք պետք է հեռացնեք բնօրինակը, քանի որ նշանակվում է նոր կատեգորիա: Այսպիսով, այս հոդվածում մենք կսովորեցնենք ձեզ, թե ինչպես ավտոմատացնել սա VBA- ի միջոցով:

Outlook- ում գույների կատեգորիաները օգտագործելու հիմնական պատճառը ձեր Outlook- ի իրերն ավելի լավ դասակարգելն ու կառավարելն է: Բացի այդ, Outlook- ը թույլ է տալիս մեկ կամ մի քանի գույների կատեգորիաներ հատկացնել մեկ իրի: Այնուամենայնիվ, մեկ առարկայի նշանակված չափազանց շատ կատեգորիաներ կարող են երբեմն խառնաշփոթել ձեր դասակարգման կանոնները: Հետեւաբար, շատ օգտվողներ ցանկանում են փոխարինել գույների կատեգորիան `փոխարենը ծածկելու կատեգորիաները: Այստեղ մենք ձեզ կբացահայտենք արդյունավետ միջոց:

Փոխարինեք Outlook կետի գույների կատեգորիան

1. Հենց սկզբից գործարկեք ձեր Outlook հավելվածը:
2. Դրանից հետո անցեք «Կառուցապատող» ներդիրին և կտտացրեք «Visual Basic» կոճակին կամ սեղմեք «Alt + F11» ստեղնների դյուրանցումները:
3. Հաջորդը մուտք կգործեք «Microsoft Visual Basic հավելվածների համար» պատուհանը:
4. Այս պահին բացելու համար հարկավոր է կրկնակի սեղմել ձախ կողմում գտնվող «ThisOutlookSession» նախագիծը:
5. Հետևաբար, պատճենեք հետևյալ VBA կոդերը ծրագրի այս պատուհանում:

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. Դրանից հետո դուք պետք է թվային սերտիֆիկատ նշանակեք այս նոր մակրոին:
7. Ավելի ուշ հարկավոր է ստուգել ձեր Outlook մակրո պարամետրերը ՝ ապահովագրված ստորագրված մակրոների հնարավորության ապահովման համար:
8. Ի վերջո, դուք պետք է վերագործարկեք Outlook-ը՝ նոր VBA նախագիծը ակտիվացնելու համար։
9. Այսուհետ, ամեն անգամ, երբ որևէ իրի նոր կատեգորիա եք հատկացնում, նախորդը ավտոմատ կերպով կհեռացվի:

Կարգավորեք Nettlesome Outlook- ի խնդիրները

Քանի որ Outlook- ը հակված է սխալների և կոռուպցիայի, ձեր Outlook- ում դուք բախվում եք տարբեր հարցերի: Հետեւաբար, դուք պետք է բավականաչափ զգույշ լինեք: Օրինակ, ցանկալի է պարբերաբար կրկնօրինակել ձեր PST ֆայլը: Ավելին, դուք պետք է բռնեք մի հզորի PST շտկում գործիք, ինչպիսիք են DataNumen Outlook Repair.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վերականգնել Sql Server և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com