Beberapa pengguna Outlook lebih suka mengkategorikan email mereka sesuai kategori warna kontak pengirim. Menetapkan kategori secara manual harus merepotkan. Artikel ini akan memperkenalkan cara mewujudkannya secara otomatis dengan Outlook VBA.
Untuk meningkatkan efisiensi kerja Anda di Outlook, Anda akan berusaha untuk mengelola email Anda dengan lebih baik. Tanpa ragu, "Kategori Warna" adalah fitur yang bagus dalam hal ini. Banyak pengguna lebih suka menggunakannya untuk mengatur dan membedakan email mereka. Tentu saja, dasar konkret dari email pengkategorian warna tergantung pada kebiasaan pribadi Anda. Misalnya, beberapa pengguna telah mengkategorikan warna kontak mereka, oleh karena itu, mereka berharap untuk mengkategorikan email mereka sesuai dengan kategori kontak pengirim. Jika Anda melakukan ini secara manual, itu pasti akan berantakan karena Anda harus terlebih dahulu memeriksa kategori kontak pengirim dan kemudian menetapkannya secara manual ke email.
Untuk mengatasi persyaratan ini, sebenarnya Anda dapat menggunakan Outlook VBA, yang memungkinkan Outlook secara otomatis memeriksa kategori kontak pengirim dan menetapkannya ke email baru. Jika Anda tertarik dengan fitur ini, baca terus untuk mendapatkan langkah-langkah dan kode yang lengkap.
Kategorikan Otomatis Email Masuk menurut Kategori Kontak Pengirim
- Pertama-tama, luncurkan Outlook dan tekan tombol "Alt + F11".
- Kemudian jendela editor VBA akan muncul, di mana Anda perlu mencari dan membuka proyek "ThisOutlookSession".
- Selanjutnya salin dan tempel kode VBA berikut ke "ThisOutlookSession".
Publik WithEvents olItems Sebagai Outlook.Items Private Sub Application_Startup () Set olItems = Outlook.Application.Session.GetDefaultFolder (olFolderInbox) .Items End Sub Private Sub olItems_ItemAdd (ByVal Item As Object) Dim oMail As MailItem Dim olContacts As Outlook.Items Dim obj As Objek Dim objVariant As Variant Dim olCategory As String Set olContacts = Outlook.Application.Session.GetDefaultFolder (olFolderContacts) .Items Jika Item TypeOf Adalah MailItem Kemudian Setel oMail = Item Untuk Setiap Object Di olContacts Jika TypeOf obj Apakah ContactItem Kemudian Set objVariant = obj Jika objVariant.Email1Address = oMail.SenderEmailAddress Kemudian olCategory = objVariant.Categories oMail.Categories = olCategory Berakhir Jika Berakhir Jika Akhir Berikutnya Jika Berakhir Sub
- Selanjutnya, Anda harus menetapkan sertifikat digital ke makro baru.
- Pertama, buat sertifikat baru melalui Sertifikat Digital untuk Proyek VBA.
- Kemudian tanda tangani kode ini secara digital.
- Setelah itu, Anda bisa mengubah keamanan makro Outlook Anda, hanya mengizinkan makro yang ditandatangani secara digital.
- Akhirnya Anda bisa restart Outlook untuk mengaktifkan makro baru. Mulai sekarang, semua email masuk yang masuk di folder Inbox akan otomatis dikategorikan menurut kategori kontak pengirim.
Selesaikan Kerusakan Outlook Tak Terduga
Meskipun Outlook lebih disukai oleh banyak pengguna, Outlook tetap tidak bisa menghilangkan crash. Anda pasti merasa panik saat mengalami kerusakan Outlook yang tidak terduga. Jangan khawatir. Anda dapat mengambil tindakan untuk mendiagnosis dan menyelesaikan masalah Anda sendiri, seperti restarting Outlook, menonaktifkan add-in pihak ketiga, membuat profil email baru, dan memperbaiki rangkaian Office, dan sebagainya. Kasus terburuk pasti data Outlook PST rusak, yang sangat rumit. Dalam skenario ini, Anda perlu menggunakan alat eksternal yang kuat, seperti DataNumen Outlook Repair.
Pengantar Penulis:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki mdf db SQL yang rusak dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com
1