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

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:


Outlook için Kutools - Outlook'a 100 Gelişmiş Özellik Getirir ve Çalışmayı Çok Daha Kolay Hale Getirir!

  • Otomatik CC / BCC e-posta gönderirken kurallara göre; Otomatik İleri Özel olarak birden çok E-posta; Otomatik cevap değişim sunucusu olmadan ve daha fazla otomatik özellik ...
  • BCC Uyarısı - tümünü yanıtlamaya çalıştığınızda mesaj göster posta adresiniz BCC listesindeyse; Eksik Olduğunda Hatırlatve daha fazlası özellikleri hatırlat ...
  • Posta görüşmesindeki Tüm Eklerle Yanıtla (Tümü); Birçok E-postayı Yanıtla saniyeler içinde; Otomatik Karşılama Ekleme cevap verdiğinde; Konuya Tarih Ekle ...
  • Ek Araçları: Tüm Postalardaki Tüm Ekleri Yönetin, Otomatik Ayır, Tümünü Sıkıştır, Tümünü Yeniden Adlandır, Tümünü Kaydet ... Hızlı Rapor, Seçili Postaları Say...
  • Güçlü Önemsiz E-postalar özel olarak; Yinelenen Postaları ve Kişileri Kaldır... Outlook'ta daha akıllı, daha hızlı ve daha iyi yapmanızı sağlar.
shot kutools görünüm kutools sekmesi 1180x121
shot kutools görünüm kutools artı sekme 1180x121
 
Yorumları sıralama ölçütü
Yorumlar (0)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar