Bagaimana cara mengklasifikasikan email berdasarkan bulan di Outlook?
Jika ada banyak email di Kotak Masuk Anda, untuk membuat kotak surat terlihat rapi dan terorganisir dengan baik, Anda dapat menyimpan atau mengarsipkannya ke dalam folder yang berbeda berdasarkan bulan tertentu dari waktu penerimaan email seperti gambar di bawah ini. Biasanya, Anda dapat membuat folder secara manual dan kemudian memindahkannya satu per satu. Jelas, pendekatan ini akan memakan waktu dan merepotkan. Pada artikel ini, saya akan berbicara tentang kode VBA untuk menyelesaikan tugas ini dengan cepat dan mudah.
Klasifikasikan email berdasarkan bulan dengan kode VBA
Untuk memindahkan email ke folder yang berbeda berdasarkan bulan, harap terapkan kode VBA di bawah ini:
1. Klik untuk memilih Inbox folder yang ingin Anda klasifikasikan email.
2. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
3. klik Menyisipkan > Modul, dan tempel kode berikut di Module Window.
Kode VBA: Klasifikasikan email berdasarkan bulan
Sub ClassifyEmailsbyMonth()
'Updateby ExtendOffice
Dim xCurFolder As Folder
Dim xMoveFolder As Folder
Dim xMail As MailItem
Dim I As Long
Dim xYear As String, xMonth As String
On Error Resume Next
Set xCurFolder = Application.ActiveExplorer.CurrentFolder
For I = xCurFolder.Items.Count To 1 Step -1
DoEvents
If xCurFolder.Items.Item(I).Class = olMail Then
Set xMail = xCurFolder.Items.Item(I)
xYear = Year(xMail.ReceivedTime)
xMonth = Month(xMail.ReceivedTime)
Set xMoveFolder = Nothing
Set xMoveFolder = xCurFolder.Folders(xYear & "." & xMonth)
If xMoveFolder Is Nothing Then
Set xMoveFolder = xCurFolder.Folders.Add(xYear & "." & xMonth)
End If
xMail.Move xMoveFolder
End If
Next
Set xMoveFolder = Nothing
Set xCurFolder = Nothing
End Sub
4. Lalu tekan F5 untuk mengeksekusi kode ini, dan semua email di folder Kotak Masuk yang dipilih diklasifikasikan berdasarkan bulan tertentu dari waktu penerimaan email, lihat tangkapan layar:
Alat Produktivitas Kantor Terbaik
Kutools untuk Outlook - Lebih dari 100 Fitur Canggih untuk Meningkatkan Outlook Anda
π€ Asisten Surat AI: Email profesional instan dengan keajaiban AI--satu klik untuk mendapatkan balasan jenius, nada sempurna, penguasaan multibahasa. Ubah email dengan mudah! ...
π§ Email Otomatis: Di Luar Kantor (Tersedia untuk POP dan IMAP) / Jadwal Kirim Email / Auto CC/BCC Sesuai Aturan Saat Mengirim Email / Penerusan Otomatis (Aturan Lanjutan) / Tambah Salam Otomatis / Secara Otomatis Membagi Email Multi-Penerima menjadi Pesan Individual ...
π¨ email Management: Mengingat Email dengan Mudah / Blokir Email Penipuan berdasarkan Subjek dan Lainnya / Hapus Email Duplikat / Pencarian / Konsolidasi Folder ...
π Lampiran Pro: Penyimpanan Batch / Pelepasan Batch / Kompres Batch / Penyimpanan otomatis / Lepaskan Otomatis / Kompres Otomatis ...
π Antarmuka Ajaib: πLebih Banyak Emoji Cantik dan Keren / Tingkatkan Produktivitas Outlook Anda dengan Tampilan Tab / Minimalkan Outlook Daripada Menutup ...
π Keajaiban sekali klik: Balas Semua dengan Lampiran Masuk / Email Anti-Phishing / πTampilkan Zona Waktu Pengirim ...
π©πΌβπ€βπ©π» Kontak & Kalender: Batch Tambahkan Kontak Dari Email yang Dipilih / Bagi Grup Kontak menjadi Grup Individual / Hapus Pengingat Ulang Tahun ...
Lebih 100 Fitur Tunggu Eksplorasi Anda! Klik Di Sini untuk Menemukan Lebih Banyak.