Cara Mengganti Kategori Warna Item Outlook dengan VBA

Sekiranya anda ingin mengganti kategori warna item Outlook, anda perlu mengeluarkan yang asal kerana kategori baru ditetapkan. Oleh itu, dalam artikel ini, kami akan mengajar anda cara mengotomatisasi ini melalui VBA.

Sebab utama mengapa kami menggunakan kategori warna di Outlook adalah untuk mengklasifikasikan dan mengurus item Outlook anda dengan lebih baik. Selain itu, Outlook membenarkan kami menetapkan satu atau lebih kategori warna untuk satu item. Walau bagaimanapun, terlalu banyak kategori yang ditugaskan untuk satu item kadang-kadang boleh mengganggu peraturan klasifikasi anda. Oleh itu, banyak pengguna ingin mengganti kategori warna dan bukannya kategori overlay. Di sini kami akan mendedahkan cara yang berkesan kepada anda.

Ganti Kategori Warna Item Outlook

1. Pada awalnya, lancarkan aplikasi Outlook anda.
2. Kemudian beralih ke tab "Pengembang" dan klik butang "Visual Basic" atau tekan pintasan kekunci "Alt + F11".
3. Selanjutnya anda akan memasuki tetingkap "Microsoft Visual Basic for Applications".
4. Pada ketika ini, anda harus mengklik dua kali pada projek "ThisOutlookSession" di sebelah kiri untuk membukanya.
5. Selepas itu, salin kod VBA berikut ke tetingkap projek ini.

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. Selepas itu, anda harus memberikan sijil digital untuk makro baru ini.
7. Kemudian anda perlu menyemak tetapan makro Outlook anda untuk memastikan makro yang ditandatangani diaktifkan.
8. Akhirnya anda perlu memulakan semula Outlook untuk mengaktifkan projek VBA baharu.
9. Mulai sekarang, setiap kali anda menetapkan kategori baru pada item, yang sebelumnya akan dikeluarkan secara automatik.

Tangani Masalah Outlook Nettlesome

Oleh kerana Outlook terdedah kepada kesalahan dan kerosakan, anda akan menghadapi pelbagai masalah dalam Outlook anda. Oleh itu, anda harus membuat langkah berjaga-jaga yang mencukupi. Sebagai contoh, disarankan untuk membuat sandaran biasa untuk fail PST anda. Lebih-lebih lagi, anda harus memahami yang kuat Pembaikan PST alat, seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pulih Sql Server dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com