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

Author: Xiaoyang Last Modified: 2025-06-10

Eğer Gelen Kutusu'nda çok sayıda e-posta varsa, posta kutusunu düzenli ve derli toplu göstermek için, aşağıdaki ekran görüntüsünde gösterildiği gibi, e-postaların alındığı ay bazında farklı klasörlere kaydedebilir veya arşivleyebilirsiniz. Normalde, bu klasörleri manuel olarak oluşturabilir ve ardından tek tek taşıyabilirsiniz. Açıkça, bu yöntem zaman alıcı ve sorunlu olacaktır. Bu makalede, bu görevi hızlı ve kolay bir şekilde çözmek için bir VBA kodundan bahsedeceğim.

classify-emails-by-month/doc-classify-by-month-1

VBA kodu ile e-postaları aylara göre sınıflandırma

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

1. E-postaları 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.

3. Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: E-postaları aylara göre 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

classify-emails-by-month/doc-classify-by-month-2

4. Ardından, bu kodu çalıştırmak için F5 tuşuna basın ve seçilen Gelen Kutusu klasöründeki tüm e-postalar, e-postaların alındığı ay bazında sınıflandırılacaktır, aşağıdaki ekran görüntüsüne bakın:

classify-emails-by-month/doc-classify-by-month-1

Outlook'daki AI Mail Asistanı: Daha Akıllı Yanıtlar, Daha Açık İletişim (tek tıklama sihirbazlığı!) ÜCRETSİZ

Kutools for Outlook'un AI Mail Asistanı ile günlük Outlook görevlerinizi kolaylaştırın. Bu güçlü araç, geçmiş e-postalarınızdan öğrenerek size akıllı ve doğru yanıtlar sunar, e-posta içeriğinizi optimize eder ve mesaj taslaklarını hazırlamada ve geliştirmede size yardımcı olur.

Bu özellik şunları destekler:

Akıllı Yanıtlar: Geçmiş konuşmalarınızdan oluşturulan, kişiselleştirilmiş, kesin ve kullanıma hazır yanıtlar alın.
Geliştirilmiş İçerik: E-posta metniniz otomatik olarak netlik ve etki için iyileştirilir.
Kolay Taslak Oluşturma: Sadece anahtar kelimeler sağlayın ve AI'nın gerisini halletmesine izin verin; birden fazla yazım stiliyle.
Akıllı Genişletmeler: Bağlam farkındalığına sahip önerilerle düşüncelerinizi genişletin.
Özetleme: Uzun e-postaların kısa ve öz bir özetini anında alın.
Küresel Kapsam: E-postalarınızı herhangi bir dile kolayca çevirin.

Bu özellik şunları destekler: