كيف يمكنني الفرز والتجميع بناءً على تصفية نطاق بريد المرسِل الإلكتروني في Outlook؟

عادةً، يمكننا ترتيب رسائل البريد الإلكتروني بسهولة في Microsoft Outlook حسب المرسِل أو الفئات أو العناوين أو الحجم وغير ذلك. لكن يبدو أنه لا يمكن فرز الرسائل أو تجميعها حسب نطاق البريد الإلكتروني للمرسِل، نظرًا لعدم وجود حقل مخصص لهذا الغرض في Outlook. ولحل هذه المشكلة، سأقدّم لك كود VBA يُضيف عمود «النطاق» (Domain) إلى رسائلك، مما يمكّنك بعد ذلك من فرزها وتجميعها بسهولة وفقًا لنطاق البريد الإلكتروني للمرسِل.

لفرز وتجميع رسائل البريد الإلكتروني حسب تصفية حسب نطاق البريد الإلكتروني للمرسل في Microsoft Outlook 2013 و2010، يُرجى اتباع الخطوات التالية:

الخطوة 1: افتح مجلد البريد الذي تريد فرز جميع رسائله الإلكترونية فيه وفقًا لفلتر يعتمد على نطاق البريد الإلكتروني للمرسِل.

الخطوة 2: قم بإيقاف لوحة القراءة بالنقر علىلوحة القراءة > إيقاففي تبويبعرض.

الخطوة 3: انقر علىإضافة عدة أعمدةفي تبويبعرض.

الخطوة 3: في مربع حوار «إظهار الأعمدة»، انقر على زرعمود جديد.

الخطوة 4: في مربع حوار «عمود جديد»، اكتبالنطاقفي مربع الاسم، واحتفظ بتحديدنصفي كلا المربعينالنوعوالتنسيق، ثم انقر أخيرًا على زرموافق.

الخطوة 5: بعد عودتك إلى مربع حوار «إظهار الأعمدة»، حددالنطاقفي مربع «إظهار هذه الأعمدة بهذا الترتيب»، وانقله أسفل عنصرمن، ثم انقر على زرموافق.

الخطوة 6: الآن بعد أن عدت إلى مجلد البريد المفتوح، حدد جميع رسائل البريد الإلكتروني بالضغط على مفاتيحCtrl+A في نفس الوقت.

الخطوة 7: اضغط معًا على مفاتيحAlt+F11 لفتح نافذة Microsoft Visual Basic for Applications، ثم انقر علىإدراج > وحدة، والصق كود VBA التالي في الوحدة.

VBA: فرز وتجميع حسب تصفية حسب نطاق البريد الإلكتروني للمرسل

Sub ListSelectionDomain()
Dim aObj As Object
Dim oProp As Outlook.UserProperty
Dim sDomain
On Error Resume Next
For Each aObj In Application.ActiveExplorer.Selection
Set oMail = aObj
sDomain = Right(oMail.SenderEmailAddress, Len(oMail.SenderEmailAddress) - InStr(1, oMail.SenderEmailAddress, "@"))
Set oProp = oMail.UserProperties.Add("Domain", olText, True)
oProp.Value = sDomain
oMail.Save
Err.Clear
Next
End Sub

الخطوة 8: شغّل كود VBA هذا بالضغط على مفتاحF5 أو زرتشغيلفي شريط الأدوات.

الخطوة 9: الآن، تم استخراج نطاق كل مرسل وتعبئته في عمود «النطاق».

أ.لفرز رسائل البريد الإلكتروني حسب تصفية حسب نطاق البريد الإلكتروني للمرسل، ما عليك سوى النقر على رأس عمودالنطاقأعلى جميع رسائل البريد الإلكتروني؛

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

ملاحظات:

(1) يعمل كود VBA هذا بشكل ممتاز في Outlook 2013 و2010، لكنه لا يعمل في Outlook 2007.
(2) يمكنك بسهولة حفظ طريقة العرض المخصصة باستخدامكيفية حفظ وإنشاء نسخة من إعدادات العرض وتطبيقها على مجلدات أخرى في Outlook؟

مقال ذو صلة

كيف يمكن عرض نطاق المرسِلين في قائمة البريد الإلكتروني في Outlook؟

---

أفضل أدوات إنتاجية Office

جرِّب Kutools لـ Outlook الجديد كليًّا مع 100+ ميزة رائعة!انقر للتنزيل الآن!

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

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

📨إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل الاحتيال حسب العناوين وغيرها / حذف الرسائل المكررة / البحث المتقدم / تنظيم المجلدات...

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

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

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

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

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

افتح Kutools لـ Outlook بنقرة واحدة فورًا! لا تنتظر، نزِّله الآن وحسِّن كفاءتك!

قائمة ميزات Kutools لـ Outlook      نزِّل الآن      اذهب للشراء

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

موصى به بشدة: Kutools for Office (5 في 1)

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

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

حول الحزمة⬇ نزِّل الحزمة💳 اشترِ الحزمة