Outlook'ta e-postaları aya göre nasıl sınıflandırabilirim?

Gelen Kutunuzda çok sayıda e-posta varsa, posta kutusunun düzenli ve düzenli görünmesini sağlamak için, aşağıda gösterilen ekran görüntüsü gibi, e-postaların alındığı belirli bir aya göre bunları farklı klasörlerde saklayabilir veya arşivleyebilirsiniz. Normalde, klasörleri manuel olarak oluşturabilir ve ardından bunları tek tek taşıyabilirsiniz. Açıkçası, bu yaklaşım zaman alıcı ve zahmetli olacaktır. Bu yazımda bu görevi hızlı ve kolay bir şekilde çözmek için bir VBA kodundan bahsedeceğim.

VBA kodu ile e-postaları aya göre sınıflandırın

E-postaları aya göre farklı klasörlere taşımak için lütfen aşağıdaki VBA kodunu uygulayın:

1. seçmek için tıklayın gelen kutusu E-postaları sınıflandırmak istediğiniz klasör.

2. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

3. tık Ekle > modülve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: E-postaları aya göre sınıflandırın

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. Daha sonra, tuşuna basın. F5 tuşuna basın ve seçilen Gelen Kutusu klasöründeki tüm e-postalar, e-postaların alındığı belirli bir aya göre sınıflandırılır, ekran görüntüsüne bakın: