2 Kaedah Menunjukkan Item Kalendar Peribadi secara automatik dalam Warna Tertentu di Outlook Anda

Untuk membezakan item peribadi dan item bukan peribadi dalam kalendar dengan lebih mudah, anda mungkin ingin memaparkan item peribadi secara automatik dalam warna tertentu, seperti merah untuk menyerlahkannya. Catatan ini akan memperkenalkan 2 cara untuk merealisasikannya.

Ramai pengguna lebih suka mengklasifikasikan item kalendar berdasarkan sama ada item itu peribadi atau tidak. Oleh kerana, dalam kalendar, item peribadi tidak mempunyai perbezaan nyata dalam penglihatan secara lalai, sehingga untuk mengenal pasti item peribadi dengan lebih mudah, anda boleh membiarkan Outlook menunjukkannya secara automatik dengan warna tertentu. Di sini kami akan mengajar anda 2 pendekatan untuk mendapatkannya.

Kaedah 1: Gunakan "Pemformatan Bersyarat"

1. Sebagai permulaan, lancarkan Outlook dan akses panel "Kalendar".
2. Kemudian, beralih ke tab "Lihat" dan ubah tampilan menjadi "Kalendar".
3. Seterusnya, tekan butang "Lihat Tetapan".
4. Dalam kotak dialog pop timbul, klik "Pemformatan Bersyarat".
5. Kemudian, dalam dialog berikutnya, klik "Tambah" dan masukkan nama, seperti "Peribadi".
6. Kemudian, pilih warna tertentu, seperti "Dark Red" untuk contoh saya.
7. Selepas itu, klik butang "Condition".
8. Di kotak dialog seterusnya, beralih ke tab "Lanjutan" dan tambahkan penapis berikut:

Sensitivity > equals > private

9. Akhirnya, klik "Tambah ke Senarai" dan beberapa "OK" untuk menyimpan peraturan pemformatan ini.
10. Mulai sekarang, semua item kalendar peribadi akan ditunjukkan dalam "Dark Red".

Kaedah 2: Gunakan "Mengkategorikan Warna Auto" di VBA

1. Pertama, buat kategori warna baru yang disebut "Swasta" dengan warna tertentu.
2. Seterusnya, lancarkan editor Outlook VBA mengikut “Cara Menjalankan Kod VBA di Outlook Anda".
3. Kemudian, masukkan kod berikut ke dalam projek "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

4. Akhirnya, mulakan semula Outlook untuk mengaktifkan makro ini.
5. Sekarang, anda boleh mencuba.

• Lekatkan item dalam kalendar lalai.
• Kemudian, ubah menjadi "Peribadi".
• Sekali gus, kategori warna "Swasta" akan ditetapkan untuk item ini, seperti yang ditunjukkan pada tangkapan layar berikut.

Selamatkan Data Outlook Anda yang Berharga

Oleh kerana Outlook rentan, banyak pengguna pernah mengalami rasuah PST. Secara amnya, apabila menghadapinya, anda pertama kali boleh mencuba alat pembaikan peti masuk untuk membetulkan fail. Namun, jika gagal, anda boleh menggunakan utiliti luaran yang lebih kuat dan boleh dipercayai seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

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