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

Gelen Kutunuzda çok sayıda e-posta varsa, posta kutusunun düzenli ve tertemiz görünmesini sağlamak için bu e-postaları “Alma Zamanı” tarihlerine göre belirli aylara ayrılmış klasörlere depolayabilir veya arşivleyebilirsiniz (aşağıdaki ekran görüntüsünde gösterildiği gibi). Genellikle bu klasörleri manuel olarak oluşturup e-postaları tek tek taşıyabilirsiniz; ancak bu yöntem açıkça zaman alıcı ve zahmetlidir. Bu makalede, bu görevi hızlı ve kolayca gerçekleştirmenize yardımcı olacak bir VBA kodundan bahsedeceğiz.

---

E-postaları ay bazında VBA koduyla sınıflandırma

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

1. Sınıflandırmak istediğiniz Gelen Kutusu klasörünü seçmek için tıklayın.

2. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basılı tutun. Microsoft Visual Basic for Applications penceresi açılır.

3. Tıklayın Ekle > Modül, ardından aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: E-postaları ay bazında sınıflandırma

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. Ardından, bu kodu çalıştırmak için F5 tuşuna basın; seçili Gelen Kutusu klasöründeki tüm e-postalar, alma zamanlarına göre ilgili aylara sınıflandırılır. Ekran görüntüsüne bakın: