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".
Public WithEvents olItems As 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 Object
Dim objVariant As Variant
Dim olCategory As String
Set olContacts = Outlook.Application.Session.GetDefaultFolder(olFolderContacts).Items
If TypeOf Item Is MailItem Then
Set oMail = Item
For Each obj In olContacts
If TypeOf obj Is ContactItem Then
Set objVariant = obj
If objVariant.Email1Address = oMail.SenderEmailAddress Then
olCategory = objVariant.Categories
oMail.Categories = olCategory
End If
End If
Next
End If
End 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