2 Metode untuk Menampilkan Item Kalender Pribadi secara Otomatis dalam Warna Tertentu di Outlook Anda

Solusi Outlook September 29, 2025
Bagikan sekarang:

Untuk lebih mudah membedakan barang pribadi dan barang bukan pribadi di kalender, Anda mungkin ingin menampilkan barang pribadi secara otomatis dalam warna tertentu, seperti merah untuk menyorotnya. Ini post akan memperkenalkan 2 cara untuk mewujudkannya.

Banyak pengguna lebih suka mengklasifikasikan item kalender berdasarkan apakah itu pribadi atau tidak. Karena, dalam kalender, item pribadi tidak memiliki perbedaan penglihatan yang nyata secara default, sehingga dapat mengidentifikasi item pribadi dengan lebih mudah, Anda dapat membiarkan Outlook menampilkannya secara otomatis dalam warna tertentu. Di sini kami akan mengajari Anda 2 pendekatan untuk mendapatkannya.

Metode 1: Gunakan "Pemformatan Bersyarat"

  1. Untuk sebagaitart, luncurkan Outlook dan akses panel "Kalender".
  2. Kemudian, beralih ke tab "Tampilan" dan ubah tampilan ke "Kalender".kalender View
  3. Selanjutnya, tekan tombol "Lihat Pengaturan".
  4. Di kotak dialog popup, klik "Conditional Formatting".Format Bersyarat
  5. Nanti, di dialog berikutnya, klik "Tambah" dan masukkan nama, seperti "Pribadi".
  6. Kemudian, pilih warna tertentu, seperti "Merah Tua" untuk contoh saya.Pilih Warna Pemformatan Bersyarat
  7. Setelah itu, klik tombol “Kondisi”.
  8. Di kotak dialog berikutnya, alihkan ke tab "Lanjutan" dan tambahkan filter berikut:
Sensitivity > equals > private

Setel Pilih Filter Warna Pemformatan Bersyarat

  1. Terakhir, klik "Tambahkan ke Daftar" dan beberapa "OK" untuk menyimpan aturan pemformatan ini.
  2. Mulai sekarang, semua item kalender pribadi akan ditampilkan dalam "Merah Tua".Item Pribadi dalam Warna Gelap

Metode 2: Gunakan "Kategorikan Warna Otomatis" di VBA

  1. Pertama, buat kategori warna baru yang disebut "Pribadi" dengan warna tertentu.
  2. Selanjutnya, luncurkan editor Outlook VBA menurut “Cara Menjalankan Kode VBA di Outlook Anda".
  3. Kemudian, masukkan kode berikut ke dalam proyek "ThisOutlookSession".
Private WithEvents objCalendarItems As Outlook.Items

Private Sub Application_Startup()
     Set objCalendarItems = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar).Items
End Sub

Private Sub objCalendarItems_ItemAdd(ByVal Item As Object)
    Dim objCalendarItem As Outlook.AppointmentItem

    Set objCalendarItem = Item

    If objCalendarItem.Sensitivity = olPrivate Then
       objCalendarItem.Categories = "Private"
    Else
       Call RemovePrivateCategory(objCalendarItem, "Private")
    End If

    objCalendarItem.Save
End Sub

Private Sub objCalendarItems_ItemChange(ByVal Item As Object)
    Dim objCalendarItem As Outlook.AppointmentItem

    Set objCalendarItem = Item

    If objCalendarItem.Sensitivity = olPrivate Then
       objCalendarItem.Categories = "Private"
    Else
       Call RemovePrivateCategory(objCalendarItem, "Private")
    End If

    objCalendarItem.Save
End Sub

Sub RemovePrivateCategory(ByVal objCurrentItem As Object, ByRef strCategory As String)
    Dim varCategories As Variant
    Dim i As Long

    varCategories = Split(objCurrentItem.Categories, ",")

    If UBound(varCategories) >= 0 Then
       For i = 0 To UBound(varCategories)
           If Trim(varCategories(i)) = strCategory Then
              varCategories(i) = ""
              objCurrentItem.Categories = Join(varCategories, ",")
              Exit Sub
           End If
      Next
    End If
End Sub

Kode VBA - Tunjukkan Otomatis Item Kalender Pribadi dalam Warna Tertentu

  1. Akhirnya, restart Outlook untuk mengaktifkan makro ini.
  2. Sekarang, Anda bisa mencobanya.
  • Mempromosikan item di kalender default.
  • Kemudian, ubah ke "Pribadi".Ubah Item Kalender menjadi Pribadi
  • Sekaligus, kategori warna "Pribadi" akan ditetapkan ke item ini, seperti yang ditunjukkan pada tangkapan layar berikut.Kategori Warna "Pribadi" yang Ditetapkan Otomatis

Selamatkan Data Outlook Anda yang Berharga

Karena Outlook rentan, banyak pengguna yang pernah mengalami korupsi PST. Secara umum, saat menjumpainya, Anda dapat terlebih dahulu mencoba alat perbaikan kotak masuk untuk memperbaiki file. Namun, jika gagal, Anda dapat menggunakan utilitas eksternal yang lebih kuat dan andal, seperti DataNumen Outlook Repair.

Pengantar Penulis:

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

Bagikan sekarang:

Komentar ditutup.