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

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


Kutools for Outlook - يجلب 100 ميزة متقدمة إلى Outlook ، ويجعل العمل أسهل كثيرًا!

  • CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل بريد إلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC; تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
  • رد (الكل) بكل المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية تلقائية عند الرد إضافة التاريخ إلى الموضوع ...
  • أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، فصل تلقائي, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عد الرسائل المختارة
  • رسائل البريد الإلكتروني غير الهامة القوية حسب العرف قم بإزالة الرسائل المكررة وجهات الاتصال تمكنك من أداء أذكى وأسرع وأفضل في Outlook.
لقطة kutools outlook kutools tab 1180x121
لقطة kutools outlook kutools plus tab 1180x121
 
فرز التعليقات حسب
التعليقات (0)
لا يوجد تقييم. كن أول من يقيم!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة