كيف تصنف رسائل البريد الإلكتروني حسب الشهر في Outlook؟

إذا كان هناك الكثير من رسائل البريد الإلكتروني في صندوق الوارد الخاص بك ، لجعل صندوق البريد يبدو أنيقًا ومنظمًا جيدًا ، يمكنك تخزينها أو أرشفتها في مجلدات مختلفة بناءً على الشهر المحدد لوقت استلام رسائل البريد الإلكتروني كما هو موضح أدناه. عادة ، يمكنك إنشاء المجلدات يدويًا ثم نقلها واحدة تلو الأخرى. من الواضح أن هذا النهج سيستغرق وقتًا طويلاً ومزعجًا. في هذه المقالة ، سأتحدث عن رمز VBA لحل هذه المهمة بسرعة وسهولة.

صنف رسائل البريد الإلكتروني على أساس الشهر برمز VBA

لنقل رسائل البريد الإلكتروني إلى مجلدات مختلفة بناءً على الشهر ، يرجى تطبيق رمز VBA أدناه:

1. انقر لتحديد ملف الرسائل المجلد الذي تريد تصنيف رسائل البريد الإلكتروني.

2. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

3. انقر إدراج > وحدة، والصق التعليمة البرمجية التالية في نافذة الوحدة النمطية.

كود فبا: صنف رسائل البريد الإلكتروني على أساس الشهر

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. ثم اضغط F5 مفتاح لتنفيذ هذا الرمز ، ويتم تصنيف جميع رسائل البريد الإلكتروني في مجلد صندوق الوارد المحدد حسب شهر معين من وقت استلام رسائل البريد الإلكتروني ، انظر لقطة الشاشة: