Outlook elementining rang toifasini VBA bilan qanday almashtirish mumkin

Agar siz Outlook elementining rang toifasini almashtirmoqchi bo'lsangiz, yangi toifa tayinlangani uchun asl toifani olib tashlashingiz kerak bo'ladi. Shunday qilib, ushbu maqolada biz sizga buni VBA orqali qanday avtomatlashtirishni o'rgatamiz.

Outlook-da rang toifalaridan foydalanishimizning asosiy sababi - Outlook elementlarini yaxshiroq tasniflash va boshqarishdir. Bundan tashqari, Outlook bizga bitta elementga bir yoki bir nechta rang toifalarini belgilashga imkon beradi. Biroq, bitta elementga tayinlangan juda ko'p toifalar ba'zan tasniflash qoidalarini buzishi mumkin. Shuning uchun, ko'p foydalanuvchilar toifalarni qoplash o'rniga rang toifasini almashtirishni xohlashadi. Bu erda biz sizga samarali usulni ochib beramiz.

Outlook elementining rang toifasini almashtiring

1. Eng boshida Outlook ilovasini ishga tushiring.
2. Keyin "Tuzuvchi" yorlig'iga o'ting va "Visual Basic" tugmasini bosing yoki "Alt + F11" tugmachalarini bosing.
3. Keyin siz "Ilovalar uchun Microsoft Visual Basic" oynasiga kirasiz.
4. Shu nuqtada, uni ochish uchun chap tomondagi "ThisOutlookSession" loyihasini ikki marta bosishingiz kerak.
5. Keyinchalik, ushbu loyiha oynasiga quyidagi VBA kodlarini nusxalang.

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. Shundan so'ng, ushbu yangi makroga raqamli sertifikatni belgilashingiz kerak.
7. Keyinchalik imzolangan makroslar yoqilganligiga ishonch hosil qilish uchun Outlook makro sozlamalarini tekshirishingiz kerak.
8. Oxir-oqibat, yangi VBA loyihasini faollashtirish uchun Outlookni qayta ishga tushirishingiz kerak.
9. Bundan buyon har safar biror elementga yangi toifa tayinlaganingizda, avvalgisi avtomatik ravishda o‘chiriladi.

Nettlesome Outlook muammolarini hal qiling

Outlook xato va buzilishlarga moyil bo'lganligi sababli, Outlook-da turli muammolarga duch kelasiz. Shuning uchun siz etarli darajada ehtiyot bo'lishingiz kerak. Masalan, PST faylingiz uchun muntazam zaxira nusxalarini yaratish tavsiya etiladi. Bundan tashqari, siz kuchli qo'lga olishingiz kerak PST tuzatish kabi vosita DataNumen Outlook Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc tiklash Sql Server va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com