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

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

---

تصنيف رسائل البريد الإلكتروني حسب الشهر باستخدام كود VBA

لنقل رسائل البريد الإلكتروني إلى مجلدات مختلفة حسب الشهر، يُرجى تطبيق كود VBA التالي:

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

2. اضغط مع الاستمرار على مفاتيحALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.

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

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

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