Note: The other languages of the website are Google-translated. Back to English

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:


Kutools for Outlook - Menghadirkan 100 Fitur Canggih ke Outlook, dan Membuat Pekerjaan Lebih Mudah!

  • CC / BCC Otomatis dengan aturan saat mengirim email; Maju Otomatis Beberapa Email secara khusus; Balas otomatis tanpa server pertukaran, dan lebih banyak fitur otomatis ...
  • Peringatan BCC - tunjukkan pesan ketika Anda mencoba membalas semua jika alamat email Anda ada di daftar BCC; Ingatkan Saat Lampiran Hilang, dan lebih banyak fitur pengingat ...
  • Balas (Semua) Dengan Semua Lampiran di percakapan surat; Balas Banyak Email dalam hitungan detik; Tambah Salam Otomatis saat membalas; Tambahkan Tanggal ke dalam subjek ...
  • Alat Lampiran: Kelola Semua Lampiran di Semua Email, Lepaskan Otomatis, Kompres Semua, Ganti Nama Semua, Simpan Semua ... Laporan Cepat, Hitung Email yang Dipilih...
  • Email Sampah yang Kuat dengan kebiasaan; Hapus Duplikat Email dan Kontak... Memungkinkan Anda melakukan lebih cerdas, lebih cepat, dan lebih baik di Outlook.
shot kutools outlook tab kutools 1180x121
tembak kutools outlook kutools plus tab 1180x121
 
Urutkan komentar berdasarkan
komentar (0)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan