كيفية إنشاء مجلد لتنظيم البريد الإلكتروني الذي يحتوي على أشخاص محددين في Outlook؟

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

نقل دائم للبريد الإلكتروني الذي يحتوي على أشخاص معينين إلى مجلد تم إنشاؤه

1. انقر بزر الماوس الأيمن على حساب البريد الإلكتروني الذي ستقوم بإنشاء مجلد له لتنظيم البريد الإلكتروني، وحدد "مجلد جديد" من قائمة النقر بزر الماوس الأيمن، وأعطِ اسمًا للمجلد.

2. في مجلد صندوق الوارد أو العناصر المرسلة، حدد أيًا من رسائل البريد الإلكتروني التي تحتوي على عنوان بريد إلكتروني محدد والتي ستنقل جميع رسائله إلى المجلد الذي تم إنشاؤه.

3. على علامة التبويب "الرئيسية"، في مجموعة "نقل"، انقر على "قواعد" > "نقل دائم للرسائل من: عنوان بريد إلكتروني محدد" و/أو "قواعد" > "نقل دائم للرسائل إلى: عنوان بريد إلكتروني محدد" حسب احتياجاتك.

4. في مربع الحوار المنبثق "القواعد والتنبيهات"، حدد المجلد الذي ستنقل الرسائل إليه، ثم انقر على "موافق".

5. يتم الآن نقل البريد الإلكتروني في مجلد صندوق الوارد أو العناصر المرسلة الذي يستوفي الشروط إلى المجلد الذي قمت بإنشائه للتو. كما سيتم نقل رسائل البريد الإلكتروني المستقبلية مباشرةً إلى المجلد إذا استوفت الشروط.

إنشاء مجلد بحث لتنظيم البريد الإلكتروني تلقائيًا للأشخاص المحددين

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

1. على علامة التبويب "المجلد"، في مجموعة "جديد"، انقر على "مجلد بحث جديد".

2. في مربع الحوار المنبثق "مجلد بحث جديد"، يرجى القيام بما يلي:

• 1) في مربع تحديد مجلد بحث، في قائمة البريد من الأشخاص والقوائم، حدد "البريد من وإلى أشخاص محددين"، أو "البريد من أشخاص محددين" حسب الحاجة.
• 2) في مربع تخصيص مجلد البحث، انقر على "اختيار" لتحديد الأشخاص من قائمة العناوين الخاصة بك.
• 3) حدد حساب البريد الإلكتروني الذي سيتم البحث فيه عن رسائل البريد الإلكتروني.
• 4) انقر على "موافق".

3. تم إنشاء مجلد بحث تحت مجلدات البحث، يحتوي على رسائل البريد الإلكتروني التي تستوفي الشروط.

إنشاء مجلدات دفعة واحدة لتنظيم البريد الإلكتروني لجميع حسابات البريد الإلكتروني باستخدام VBA

إذا كان لديك عدة حسابات بريد إلكتروني في Outlook، وتريد إنشاء مجلدات لكل حساب بريد إلكتروني بشكل دفعات للأشخاص المحددين، يمكنك استخدام طريقة VBA لنقل الرسائل التي تحتوي على أشخاص محددين من صناديق الوارد أو المجلدات المرسلة لحسابات البريد الإلكتروني الخاصة بك. يرجى القيام بما يلي.

1. في Outlook الخاص بك، انقر على "ملف" > "خيارات" > "مركز التوثيق"، ثم انقر على "إعدادات مركز التوثيق".

2. في مربع الحوار المنبثق، انتقل إلى "إعدادات الماكرو"، وحدد "تمكين جميع الماكرو"، وتأكد من تحديد "تطبيق إعدادات أمان الماكرو على الإضافات المثبتة".

3. انقر على زر "موافق" لإغلاق مربعات الحوار.

4. اضغط على مفتاحي "Alt" + "F11" لفتح نافذة Microsoft Visual Basic for Applications.

5. انقر على "إدراج" > "وحدة". ثم انسخ أحد أكواد VBA التالية إلى نافذة الوحدة.

VBA code 1: إنشاء مجلدات دفعة واحدة لتنظيم البريد الإلكتروني الذي يحتوي على مرسلين محددين عبر صناديق الوارد لجميع حسابات البريد الإلكتروني

Sub MailArchiveSenderInInbox()
'Update by ExtendOffice
Dim I As Integer
Dim xAccount As Account
Dim xItem As Object
Dim xMail As MailItem
Dim xNewFolder As Folder
Dim xInboxFolder As Folder
Dim xSenderAddress As String
Dim xRecipient As Recipient
Dim xFolderName As String
xFolderName = "NewFolder" 'Replace "NewFolder" with desired folder name
Const PR_SMTP_ADDRESS = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
On Error Resume Next
For Each xAccount In Application.Session.Accounts
  Set xInboxFolder = xAccount.DeliveryStore.GetDefaultFolder(olFolderInbox)
  Set xNewFolder = Nothing
  Set xNewFolder = xAccount.DeliveryStore.GetRootFolder.Folders(xFolderName)
  If xNewFolder Is Nothing Then
    Set xNewFolder = xAccount.DeliveryStore.GetRootFolder.Folders.Add(xFolderName)
  End If
  For I = xInboxFolder.Items.Count To 1 Step -1
    Set xItem = xInboxFolder.Items.Item(I)
    If xItem.Class = olMail Then
      Set xMail = xItem
      xSenderAddress = ""
      If xMail.Sender.Type = "EX" Then
        xSenderAddress = xMail.Sender.PropertyAccessor.GetProperty(PR_SMTP_ADDRESS)
      Else
        xSenderAddress = xMail.SenderEmailAddress
      End If
      If xSenderAddress = "" Then
        xSenderAddress = xMail.SenderEmailAddress
      End If
      If VBA.InStr(xSenderAddress, "name@example.com") <> 0 Then
        xMail.Move xNewFolder
      End If
    End If
  Next
  If xNewFolder.Items.Count = 0 Then
    xNewFolder.Delete
    xAccount.DeliveryStore.GetDefaultFolder(olFolderDeletedItems).Folders(xFolderName).Delete
  End If
Next
Set xInboxFolder = Nothing
Set xNewFolder = Nothing
End Sub

ملاحظة: يجب عليك استبدال المقاطع المحددة وفقًا للتعليقات الموجودة في الصفوف 12 و16 و35 من كود VBA أعلاه.

VBA code 2: إنشاء مجلدات دفعة واحدة لتنظيم البريد الإلكتروني الذي يحتوي على مستلمين محددين عبر صناديق الوارد لجميع حسابات البريد الإلكتروني

Sub MailArchiveRecipientInInbox()
'Update by ExtendOffice
Dim I As Integer
Dim xAccount As Account
Dim xItem As Object
Dim xMail As MailItem
Dim xNewFolder As Folder
Dim xInboxFolder As Folder
Dim xSenderAddress As String
Dim xRecipient As Recipient
Dim xFolderName As String
xFolderName = "NewFolder"
Const PR_SMTP_ADDRESS = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
On Error Resume Next
For Each xAccount In Application.Session.Accounts
  Set xInboxFolder = xAccount.DeliveryStore.GetDefaultFolder(olFolderSentMail)
  Set xNewFolder = Nothing
  Set xNewFolder = xAccount.DeliveryStore.GetRootFolder.Folders(xFolderName)
  If xNewFolder Is Nothing Then
    Set xNewFolder = xAccount.DeliveryStore.GetRootFolder.Folders.Add(xFolderName)
  End If
  For I = xInboxFolder.Items.Count To 1 Step -1
    Set xItem = xInboxFolder.Items.Item(I)
    If xItem.Class = olMail Then
      Set xMail = xItem
      xSenderAddress = ""
      For Each xRecipient In xMail.Recipients
'        If xRecipient.Type = olCC Then
            xSenderAddress = xSenderAddress & ", " & xRecipient.PropertyAccessor.GetProperty(PR_SMTP_ADDRESS)
            If xSenderAddress = "" Then
              xSenderAddress = xSenderAddress & ", " & xRecipient.Address
            End If
'        End If
      Next
      If VBA.InStr(xSenderAddress, "name@example.com") <> 0 Then
        xMail.Move xNewFolder
      End If
    End If
  Next
  If xNewFolder.Items.Count = 0 Then
    xNewFolder.Delete
    xAccount.DeliveryStore.GetDefaultFolder(olFolderDeletedItems).Folders(xFolderName).Delete
  End If
Next
Set xInboxFolder = Nothing
Set xNewFolder = Nothing
End Sub

ملاحظة:

• 1) يجب عليك استبدال المقاطع المحددة وفقًا للتعليقات الموجودة في الصفوف 12 و16 و35 من كود VBA أعلاه.
• 2) لتخزين الرسائل التي تحتوي على مستلمين CC أو BCC محددين، قم بإلغاء تعليق الصفوف 28 و33 عن طريق حذف الفاصلة (') في بداية الصفوف.

6. اضغط على "F5" لتشغيل كود VBA. وسيتم إنشاء مجلدات جديدة إذا كانت هناك رسائل تستوفي الشروط.

مقالات ذات صلة

---

أفضل أدوات تعزيز الإنتاجية في المكتب

خبر عاجل: Kutools لـ Outlook يطلق إصدارًا مجانيًا!

جرب الإصدار الجديد كليًا من Kutools لـ Outlook مع أكثر من100 ميزة مذهلة! انقر لتنزيل الآن!

🤖 Kutools AI : يستخدم تكنولوجيا الذكاء الاصطناعي المتقدمة للتعامل مع البريد الإلكتروني بسهولة، بما في ذلك الرد، التلخيص، التحسين، التوسيع، الترجمة، وإنشاء رسائل البريد الإلكتروني.

📧 أتمتة البريد الإلكتروني: الرد التلقائي (متوفر لـ POP وIMAP) / جدولة إرسال البريد الإلكتروني / نسخة تلقائية/مخفية بناءً على القاعدة عند إرسال البريد / التحويل التلقائي (قاعدة متقدمة) / إضافة التحية تلقائيًا / تقسيم تلقائي لرسائل البريد الإلكتروني متعددة المستلمين إلى رسائل فردية ...

📨 إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل التصيد بناءً على الموضوعات أو أخرى / حذف البريد الإلكتروني المكرر / البحث المتقدم / تنظيم المجلدات ...

📁 إعدادات المرفقات الاحترافية: حفظ دفعة / فصل دفعة / ضغط دفعة / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي ...

🌟 جمالية الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / تذكيرك عند وصول رسائل البريد الهامة / تصغير Outlook بدلًا من الإغلاق ...

👍 ميزات بنقرة واحدة: الرد على الجميع مع المرفقات / البريد الإلكتروني المضاد للتصيد / 🕘 عرض المنطقة الزمنية للمرسل ...

👩🏼‍🤝‍👩🏻 جهات الاتصال والتقويم: إضافة دفعة لجهات الاتصال من البريد الإلكتروني المحدد / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد ...

استخدم Kutools بلغتك المفضلة – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية وأكثر من40 لغة أخرى!

افتح Kutools لـ Outlook فورًا بنقرة واحدة. لا تنتظر، قم بالتنزيل الآن وارتقِ بإنتاجيتك!

جدول أحادي الأبعاد لميزات Kutools لـ Outlook تنزيل الآن انتقل للشراء

🚀 تنزيل بنقرة واحدة — احصل على جميع إضافات Office

موصى به بقوة: Kutools لـ Office (خمسة في واحد)

بنقرة واحدة يمكنك تنزيل خمسة برامج تثبيت مرة واحدة — Kutools لـ Excel وOutlook وWord وPowerPoint وOffice Tab Pro. انقر لتنزيل الآن!

• ✅ سهولة بنقرة واحدة: قم بتنزيل جميع حزم التثبيت الخمسة دفعة واحدة.
• 🚀 جاهز لأي مهمة في Office: ثبّت الإضافات التي تحتاجها وقتما تشاء.
• 🧰 يتضمن: Kutools لـ Excel / Kutools لـ Outlook / Kutools لـ Word / Office Tab Pro / Kutools لـ PowerPoint

حول الحزمة ⬇ تنزيل الحزمة 💳 شراء الحزمة