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

Author: Xiaoyang Last Modified: 2025-08-06

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

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

صنّف البريد الإلكتروني بناءً على الشهر باستخدام كود 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

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

4. بعد ذلك، اضغط على مفتاح F5 لتنفيذ هذا الكود، وسيتم تصنيف جميع البريد الإلكتروني في مجلد صندوق الوارد المحدد حسب الشهر المحدد لوقت استلام الرسائل، انظر لقطة الشاشة:

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

مساعد البريد الإلكتروني الذكي في Outlook: ردود أذكى، تواصل أوضح (سحر بنقرة واحدة!) مجانًا

قم بتبسيط مهام Outlook اليومية باستخدام مساعد البريد الإلكتروني الذكي من أدوات Kutools لـ Outlook. هذا الأداة القوية تتعلم من رسائل البريد الإلكتروني السابقة لتقدم ردودًا ذكية ودقيقة، تحسين محتوى البريد الإلكتروني، وتساعدك على صياغة وتحسين الرسائل بسهولة.

هذه الميزة تدعم:

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

هذه الميزة تدعم: