Bagaimana cara memindahkan email ke folder tertentu setelah menetapkan kategori tertentu di Outlook?
Misalkan Anda menetapkan kategori ke email yang diterima di Outlook Anda, setelah menetapkan kategori, Anda ingin email ini dipindahkan secara otomatis ke folder email tertentu yang diberi nama dengan nama kategori. Misalnya, email yang ditetapkan dengan kategori "Pribadi" akan dipindahkan ke nama folder "Pribadi" di Outlook Anda. Bagaimana cara mencapainya? Metode dalam artikel ini dapat membantu Anda menyelesaikan masalah dengan mudah.
Pindahkan email ke folder tertentu setelah menetapkan kategori tertentu dengan VBA
Pindahkan email ke folder tertentu setelah menetapkan kategori tertentu dengan VBA
Kode VBA di bawah ini dapat membantu memindahkan email secara otomatis ke folder tertentu setelah menetapkan kategori tertentu di Outlook. Silakan lakukan sebagai berikut.
1. tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, klik dua kali untuk membuka ThisOutlookSession (Kode) jendela. Kemudian salin kode VBA di bawah ini ke jendela. Lihat tangkapan layar:
Kode VBA: Pindahkan email ke folder tertentu setelah menetapkan kategori tertentu
Private WithEvents xInboxFld As Outlook.Folder
Private WithEvents xInboxItems As Outlook.Items
Private Sub Application_Startup()
Set xInboxFld = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
Set xInboxItems = xInboxFld.Items
End Sub
Private Sub xInboxItems_ItemChange(ByVal Item As Object)
Dim xMailItem As Outlook.MailItem
Dim xFlds As Outlook.Folders
Dim xFld As Outlook.Folder
Dim xTargetFld As Outlook.Folder
Dim xFlag As Boolean
On Error Resume Next
If Item.Class = olMail Then
Set xMailItem = Item
xFlag = False
If xMailItem.Categories <> "" Then
Set xFlds = Application.Session.GetDefaultFolder(olFolderInbox).Folders
If xFlds.Count <> 0 Then
For Each xFld In xFlds
If xFld.Name = xMailItem.Categories Then
xFlag = True
End If
Next
End If
If xFlag = False Then
Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add xMailItem.Categories, olFolderInbox
End If
Set xTargetFld = Application.Session.GetDefaultFolder(olFolderInbox).Folders(xMailItem.Categories)
xMailItem.Move xTargetFld
End If
End If
End Sub
3. Simpan kode dan mulai ulang Outlook.
4. Mulai sekarang, ketika menetapkan kategori ke email penerima, folder dengan nama kategori akan dibuat secara otomatis di bawah folder Kotak Masuk dengan email yang dipindahkan. Lihat tangkapan layar:
Note: Semua email dengan kategori yang sama akan dipindahkan ke folder yang sama secara otomatis. Namun jika kategori baru ditetapkan ke email, folder baru akan dibuat secara otomatis.
Artikel terkait:
- Bagaimana cara menetapkan kategori ke email keluar di Outlook?
- Bagaimana cara menyimpan kategori asli saat membalas atau meneruskan email di Outlook?
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!