როგორ შევცვალოთ 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. საბოლოოდ, ახალი VBA პროექტის გასააქტიურებლად, Outlook უნდა გადატვირთოთ.
9. ამიერიდან, ყოველ ჯერზე, როცა ნივთს ახალ კატეგორიას ანიჭებთ, წინა ავტომატურად წაიშლება.

გაუმკლავდეს Nettlesome Outlook საკითხები

ვინაიდან Outlook მიდრეკილია შეცდომებისა და კორუფციისკენ, თქვენ წააწყდებით სხვადასხვა საკითხს თქვენს Outlook-ში. ამიტომ, თქვენ უნდა გამოიჩინოთ საკმარისი სიფრთხილე. მაგალითად, მიზანშეწონილია თქვენი PST ფაილის რეგულარული სარეზერვო ასლების შექმნა. უფრო მეტიც, თქვენ უნდა დაიჭიროთ ძლიერი PST შესწორება ინსტრუმენტი, როგორიცაა DataNumen Outlook Repair.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის გამოჯანმრთელება Sql Server და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად