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"
- Untuk sebagaitart, luncurkan Outlook dan akses panel "Kalender".
- Kemudian, beralih ke tab "Tampilan" dan ubah tampilan ke "Kalender".
- Selanjutnya, tekan tombol "Lihat Pengaturan".
- Di kotak dialog popup, klik "Conditional Formatting".
- Nanti, di dialog berikutnya, klik "Tambah" dan masukkan nama, seperti "Pribadi".
- Kemudian, pilih warna tertentu, seperti "Merah Tua" untuk contoh saya.
- Setelah itu, klik tombol “Kondisi”.
- Di kotak dialog berikutnya, alihkan ke tab "Lanjutan" dan tambahkan filter berikut:
Sensitivitas> sama> pribadi
- Terakhir, klik "Tambahkan ke Daftar" dan beberapa "OK" untuk menyimpan aturan pemformatan ini.
- Mulai sekarang, semua item kalender pribadi akan ditampilkan dalam "Merah Tua".
Metode 2: Gunakan "Kategorikan Warna Otomatis" di VBA
- Pertama, buat kategori warna baru yang disebut "Pribadi" dengan warna tertentu.
- Selanjutnya, luncurkan editor Outlook VBA menurut “Cara Menjalankan Kode VBA di Outlook Anda".
- Kemudian, masukkan kode berikut ke dalam proyek "ThisOutlookSession".
Private WithEvents objCalendarItems Sebagai Outlook.Items Private Sub Application_Startup () Setel objCalendarItems = Outlook.Application.Session.GetDefaultFolder (olFolderCalendar) .Items End Sub Private Sub objCalendarItems_ItemAdd (ByVal Item As Object) Redupkan objCalendarItem Sebagai Outlook.AppointmentItem Atur objCalendarCalendar = Item Jika objCalendarItem.Sensitivity.Catatan Panggilan Lain "Private" RemovePrivateCategory (objCalendarItem, "Private") Akhiri Jika objCalendarItem.Save Akhiri Sub Privat ObjectCalendarItems_ItemChange (ByVal Item As Object) Redupkan objCalendarItem Sebagai Outlook.AppointmentItem Set objCalendarvItem = Item Jika objCalendarItem.Sensitivity.CatPri "Private" Panggil Lain RemovePrivateCategory (objCalendarItem, "Private") Akhiri Jika objCalendarItem.Save End Sub Sub RemovePrivateCategory (ByVal objCurrentItem Sebagai Objek, ByRef strCategory As String) Dim varCategories As Variant Dim i As Long varCategories = Split (objCurrentItem, " , ") Jika UBound (varCategories)> = 0 Maka Untuk i = 0 Ke UBound (varCategories) Jika Tr im (varCategories (i)) = strCategory Kemudian varCategories (i) = "" objCurrentItem.Categories = Gabung (varCategories, ",") Keluar dari Sub Akhir Jika Akhir Berikutnya Jika Akhir Sub
- Akhirnya, restart Outlook untuk mengaktifkan makro ini.
- Sekarang, Anda bisa mencobanya.
- Mempromosikan item di kalender default.
- Kemudian, ubah ke "Pribadi".
- Sekaligus, kategori warna "Pribadi" akan ditetapkan ke item ini, seperti yang ditunjukkan pada tangkapan layar berikut.
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