Cara Memindahkan Email Secara Otomatis dengan Kategori Warna Berbeda ke Folder Berbeda di Outlook

Jika Anda ingin Outlook secara otomatis memindahkan email ke folder yang berbeda ketika Anda menetapkan kategori warna yang berbeda untuk email tersebut, Anda dapat menggunakan metode yang diperkenalkan dalam postingan ini.

Banyak pengguna merindukan metode untuk memindahkan email secara otomatis ke folder tertentu ketika kategori warna tertentu ditetapkan padanya. Tanpa ragu, Outlook tidak menawarkan fitur langsung untuk mewujudkannya. Oleh karena itu, berikut ini kami akan mengajarkan kepada Anda cara untuk mendapatkannya. Sekarang, baca terus untuk mendapatkan langkah-langkah terperinci.

Pindahkan Otomatis Email dengan Kategori Warna Berbeda ke Folder Berbeda

1. Sebagai langkah awal, buka program Outlook Anda.
2. Kemudian, di Outlook, tekan tombol tombol “Alt + F11” untuk mengakses editor VBA.
3. Selanjutnya, masukkan kode VBA berikut ke dalam proyek "ThisOutlookSession".

Private WithEvents objInboxFolder As Outlook.Folder
Private WithEvents objInboxItems As Outlook.Items

'Process inbox mails
Private Sub Application_Startup()
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set objInboxItems = objInboxFolder.Items
End Sub

'Occurs when changing item
Private Sub objInboxItems_ItemChange(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objTargetFolder As Outlook.Folder
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Move mails based on color category
       If InStr(objMail.Categories, "Private") > 0 Then
          Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Private")
          objMail.Move objTargetFolder
       ElseIf InStr(objMail.Categories, "Business") > 0 Then
          Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Business")
          objMail.Move objTargetFolder
       End If
    End If
End Sub

Catatan:

• Untuk memproses item di folder lain, Anda dapat mengubah objek "objInboxFolder", seperti "Application.Session.GetDefaultFolder(olFolderSentMail)" untuk folder "Item Terkirim".
• Selain itu, ubah kategori warna dan folder target yang telah ditentukan sebelumnya dalam kode di atas sesuai dengan kasus Anda yang sebenarnya.
• Plus, Anda dapat menggunakan "ElseIf" untuk menambahkan kategori warna opsional lainnya.

4. Setelah itu, pindahkan kursor ke subrutin “Application_Startup” dan tekan “F5”, yang akan mengaktifkan makro ini.
5. Akhirnya, Anda dapat mengambil bidikan. Inilah contoh saya.

• Pilih email di folder Kotak masuk.
• Kemudian, tetapkan kategori warna "Pribadi" untuk itu.
• Sekaligus, surat ini akan dipindahkan ke folder "Pribadi" di bawah "Kotak Masuk".

Tangani Outlook Anda dengan Hati-hati

Mungkin Anda mengalami beberapa masalah di Outlook Anda. Lebih sering daripada tidak, itu sebenarnya terjadi dari penanganan Anda yang tidak tepat. Misalnya, Anda selalu menutup Outlook dengan tidak benar, seperti mematikan daya secara tiba-tiba. Atau Anda belum mencadangkan data Outlook secara berkala. Semua tindakan serupa dapat membuat Outlook Anda jauh lebih rentan. Seperti yang Anda ketahui, sekali file PST rusak, sangat sulit untuk memperbaikinya. Secara umum, alat perbaikan kotak masuk tidak akan membuat efek. Anda tidak punya pilihan selain mengambil bantuan utilitas tip-top eksternal, seperti DataNumen Outlook Repair.

Pengantar Penulis:

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