Cara Mengganti Kategori Warna Item Outlook dengan VBA

Jika Anda ingin mengganti kategori warna item Outlook, Anda harus menghapus yang asli saat kategori baru ditetapkan. Jadi, dalam artikel ini, kami akan mengajari Anda cara mengotomatiskan ini melalui VBA.

Alasan utama mengapa kami menggunakan kategori warna di Outlook adalah untuk mengklasifikasikan dan mengelola item Outlook Anda dengan lebih baik. Plus, Outlook mengizinkan kita untuk menetapkan satu atau lebih kategori warna ke satu item. Namun, terlalu banyak kategori yang ditetapkan untuk satu item terkadang dapat mengacaukan aturan klasifikasi Anda. Oleh karena itu, banyak pengguna ingin mengganti kategori warna daripada kategori overlay. Di sini kami akan memaparkan cara yang efektif untuk Anda.

Ganti Kategori Warna dari Item Outlook

1. Pertama-tama, luncurkan aplikasi Outlook Anda.
2. Kemudian beralih ke tab "Pengembang" dan klik tombol "Visual Basic" atau tekan pintasan tombol "Alt + F11".
3. Selanjutnya Anda akan masuk ke jendela "Microsoft Visual Basic for Applications".
4. Pada titik ini, Anda harus mengklik dua kali pada proyek "ThisOutlookSession" di sisi kiri untuk membukanya.
5. Selanjutnya, salin kode VBA berikut ke dalam jendela proyek 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. Setelah itu, Anda harus menetapkan sertifikat digital ke makro baru ini.
7. Nanti Anda perlu memeriksa pengaturan makro Outlook Anda untuk memastikan makro yang ditandatangani diaktifkan.
8. Pada akhirnya, Anda perlu memulai ulang Outlook untuk mengaktifkan proyek VBA yang baru.
9. Mulai sekarang, setiap kali Anda menetapkan kategori baru ke suatu item, kategori sebelumnya akan dihapus secara otomatis.

Tangani Masalah Outlook yang Menjengkelkan

Karena Outlook rentan terhadap kesalahan dan kerusakan, Anda akan mengalami berbagai masalah di Outlook Anda. Oleh karena itu, Anda harus melakukan tindakan pencegahan yang cukup. Misalnya, disarankan untuk membuat cadangan file PST Anda secara teratur. Selain itu, Anda harus mendapatkan yang kuat Perbaikan PST alat, seperti DataNumen Outlook Repair.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memulihkan Sql Server dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com